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ARQUITECTURA 


N este tema vamos a 
intentar conocer 
cómo es por dentro 
un ordenador, punto 
de trascendencia 
fundamental para el 
posterior desarrollo 
. de cualquier aplica- 
ción obteniendo su máximo rendimiento. 

Fundamentalmente un ordenador está 
compuesto por dos partes: 


— La unidad central de proceso, que 
abreviadamente se conoce por las siglas 
CPU o UCP, según se utilicen las inglesas 
o las castellanas. Esta parte es la que 
constituye el verdadero “centro de tra- 
bajo” del ordenador, ya que en ella se 
ejecutan los programas. 


ENTRADA 
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Oficina de tareas administrativas. 
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DE LOS ORDENADORES 


— Las unidades periféricas, que son 
dispositivos que tiene el ordenador para 
comunicarse con su entorno, los medios 
por los que se proporciona información 
al ordenador y aquéllos por los que el or- 
denador suministra los resultados de los 
programas. También suelen considerarse 
como unidades periféricas los distintos 
dispositivos de almacenamiento secun- 
dario de los cuales se hablará más ade- 
lante. 


Profundizando un poco más en el inte- 
rior del ordenador veamos de qué partes 
está compuesta la Unidad Central de Pro- 
ceso. Para ello vamos a hacer una ana- 
logía entre el funcionamiento del orde- 
nador y el de una oficina en la que se 
ejecutan tareas administrativas (ver figu- 
ra 1). 


SALIDA 


CALCULADORA 


La oficina de la que hablamos está si- 
tuada en una habitación en la que sólo 
hay un empleado. El trabajo de cada 
mañana le llega por una ventanilla de re- 
cepción por la que recibe diariamente 
los albaranes que contienen una lista de 
pedidos. El tatamiento que se da a cada 
albarán dependerá de ciertas normas 
que le han sido previamente detalladas 
“programando” las operaciones a reali- 
zar. Como útiles de trabajo, el empleado 
dispone de un tablero en el que va colo- 
cando las normas a seguir en cada caso, 
la lista de precios para cada cliente y la 
lista de descuentos, y, para las operacio- 
nes aritméticas que tenga que hacer, 
una calculadora. 

En el proceso de facturación el em- 
pleado realiza los siguientes pasos: 


— lee cuidadosamente la lista de ins- 
trucciones que figuran en el tablero, eje- 
cutando una detrás de otra todas las ins- 
trucciones. 


— Con las normas a seguir y los datos 
necesarios para realizar la facturación 
realiza las operaciones aritméticas de 
cálculo de precios y descuento. 

— Con los datos y los resultados obte- 
nidos rellena el documento de facturación 
y lo deposita en la ventanilla de salida. 


Estas operaciones se repiten tantas ve- 
ces como haga falta hasta teminar con 
el último albarán y su factura correspon- 
diente. 

Cuando el volumen de trabajo sea tan 
grande que ocupe todo el espacio del 
tablero será necesario que el empleado 
vaya guardando los documentos en al- 
guna parte. Para ellos dispone de un ar- 
chivo fuera de la oficina en una habita- 
ción separada. 

Una vez visto este ejemplo de trabajo 
será más fácil entender el funcionamien- 
to y las distintas partes del ordenador. En 
la figura 2 vemos representados los dis- 
tintos elementos: 


A 
[A Partes de un ordenador. 
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— Los dispositivos de entrada/salida 
del ordenador corresponderían en nues- 
tro ejemplo a las dos ventanillas que co- 
munican la oficina con el exterior. Por la 
que le llegan al empleado los albaranes 
sería “el dispositivo de entrada de da- 
tos”, y por la que él va entregando las 
facturas actualizadas sería “el periférico 
de salida” del ordenador. 


— El director de la empresa, encarga- 
do de determinar las órdenes que tiene 
que ejecutar el empleado a la hora de 
calcular las facturas, y controlar si dicha 
ejecución ha sido bien realizada, es el 
equivalente al elemento U.C. o unidad 
de control. 


— la pequeña calculadora utilizada 
para los cálculos es lo que en términos 
de arquitectura se denomina unidad arit- 
mético-lógica. 


— El tablero en el que se van colocan- 
do tanto las acciones a seguir como los 
datos que van siendo obtenidos es el ele- 
mento M.C., o memoria central donde se 
almacenan los programas y datos. Esta 
memoria tiene normalmente una capaci- 
dad finita, insuficiente para almacenar to- 
dos los datos. 


— Cuando los documentos no cabían 
en la oficina se almacenaban fuera de 
ella. En el caso del ordenador éste alma- 
cenamiento secundario es lo que consti- 
tuye la memoria secundaria y serán nor- 
malmente discos magnéticos, cintas, 
etcétera. 


En resumen, los órganos básicos de un 
ordenador son: 


— lLaunidad central de proceso, com- 
puesta por: 


e La unidad de control. ] 
+ La unidad aritmético-lógica. 
e La memoria central. 


— Los dispositivos periféricos: 


. De entrada/salida. 
+. De almacenamiento secundario. 


Una vez conocido el “interior” de un or- 
denador vamos a ver cómo funciona más 
detalladamente cada una de sus partes. 


0 Unidad central de proceso 


La unidad de control 


Como vimos anteriormente, la U.C. es 
el órgano “más inteligente” del ordena- 
dor, que se encarga de dirigir y contro- 
lar cada una de las acciones que se eje- 
cutan en él. Es decir: 


— Analiza e interpreta las instruccio- 
nes del programa que se esta ejecutan- 
do. 


— Dirige el funcionamiento de las dis- 
tintas partes del ordenador mediante ór- 
denes dirigidas a las mismas controlando 
su actuación. 


Para saber qué operaciones se tienen 
que realizar se habrá cargado previa- 
mente en la memoria del ordenador el 
correspondiente programa. Una vez he- 
cho esto, los pasos que sigue la U.C. son 
los siguientes: 


— Extrae de la memoria la instrucción 
a ejecutar. Para ello existe en la máqui- 
na un “apuntador” que señala cuál es la 
instrucción siguiente. Este “apuntador” es 
un registro llamado contador de progra- 
ma, que contiene la dirección de memo- 
ria donde se encuentra esta instrucción. 
Cuando se extrae, el P.C. (abreviatura de 
siglas inglesas) se incrementa para 
apuntar a la dirección de la siguiente ins- 
trucción del programa. 


— Una vez extraída se coloca en el lla- 
mado registro de instrucción que consta 
de dos partes: una, que contiene el có- 
digo de operación que identifica la ope- 
ración a ejecutar (suma, resta...) y la se- 
gunda, que contiene la dirección en la 
que está almacenado el operando. 


— Si la operación identificada es de 
tipo aritmético se ordena a la U.A.L. que 
la realice. 


— Si la operación ha proporcionado 
nuevos datos, éstos se almacenan en la 
memoria principal (ver figura 3). 


La unidad aritmética lógica 


La U.A.L. es la parte del ordenador en- 
cargada de efectuar las operaciones 
que indiquen las instrucciones del progra- 


REGISTRO INSTRUCCION 


Y 


[A Partes de la unidad de control. 


ma. Las operaciones que puede realizar 
esta unidad son de tipo: 


— Aritmético: suma, resta, multiplica- 
ción, división. 

— lógicas: comparación, negación... 

Estas operaciones se realizan sobre da- 
tos o informaciones que previamente 
han sido almacenados en memoria, y 
nunca podrán efectuarse sobre más de 
dos operandos, de manera que si hay 
que hacer la suma de tres cantidades 
será necesario sumar de dos en dos, te- 
niendo, por tanto, dos sumas. 

Los pasos a seguir en la U.A.L. para rea- 
lizar operaciones son: 


— Cargar el primer operando en el 
acumulador (registro de almacenamien- 
to temporal). 

— Realizar la operación con el segun- 
do operando y el contenido del acumu- 
lador. 


Cargar el contenido del acumulador 
en la dirección del resultado. 

Para poder hacer todo esto se debe 
proporcionar a la U.A.L. los siguientes da- 
tos: 


— Código de operación, que indique 
la operación a efectuar. 

— Dirección de la célula en la que se 
encuentra almacenado el primer ope- 
rando. 

— Dirección del segundo operando. 

— Dirección de la célula en la que se 
almacenará el resultado. 


Podemos ver más detalladamente el 
funcionamiento de la unidad aritmético 
logica en la figura 4. 


¡A Unidad aritmético-lógica. 


Memoria central 


La memoria central del ordenador es el 
elemento que se encarga de almacenar 
datos y programas (información en gene- 
ral). Por tanto, la memoria puede consi- 
derarse como un órgano pasivo en el 
que se: 


— Introduce información (“escribir en 
memoria”). 

— Extrae información (“leer en memo- 
ria”). 


> 
e 

as 
OS 


LA Memoria central. 


La memoria está constituida por un 
conjunto de celdas ordenadas numéri- 
camente por sus direcciones y que son 
capaces de albergar un dato o una ins- 
trucción. Para poder acceder al conteni- 
do de una celda de memoria o escribir 


l INFORMÁTICA BÁSICA 


algo en ella la memoria dispone de dos 
registros: 


— Registro de dirección de memoria: 
contiene en un momento dado la direc- 
ción de la celda que se trata de buscar. 

— Registro de información de memo- 
ria: en él deposita la memoria el conte- 
nido de la celda seleccionada en el 
caso de una operación de lectura, o 
bien contiene una información para que 
sea depositada en la celda selecciona- 
da en el caso de escritura. 


Según vaya a efectuarse una opera- 
ción de lectura o de escritura, se segui- 
ran los siguientes pasos: 


Lectura: 


— Almacenar la dirección de la celda 
en la que se encuentra la información en 
el registro de dirección. 

— Cargar en el registro de intercam- 
bio la información contenida en la celda 
apuntada por el registro de dirección. 

— Transferir el contenido al registro de 
la CPU que corresponda. 


Escritura: 


— Transferir al registro de intercambio 
la información. 

— Almacenar la dirección de la celda 
receptora de información. 

— Cargar el contenido de intercam- 
bio en la celda apuntada por el registro 
de dirección. 


Ñ 
lA, Proceso de escritura/lectura en memoria. 


Una propiedad de la memoria central 
es que cuando se “grabe” en una celda 
la información, automáticamente queda 
destruida la información que contuviese 
anteriormente. No ocurre esto, evidente- 
mente, al leer el contenido de una cel- 
da, que consiste únicamente en hacer 
un duplicado de la información que se- 
guirá permaneciendo en dicha celda. 


' Dispositivos periféricos 


Podemos hacer una clasificación en 
dos grandes grupos: 


— Los que se encargan del intercam- 
bio de información entre el ordenador y 
el exterior; y 

— Los dispositivos de almacenamien- 
to de grandes volúmenes de informa- 
ción. 


Dentro del primer grupo podemos dis- 
tinguir los que se encargan de introducir 
información al ordenador, que serían los 
de entrada. De salida serían aquéllos por 
los cuales el ordenador proporciona in- 
formación. Normalmente la información 
que introducimos al ordenador no es di- 
rectamente legible por él, por lo que hay 
que “transcribir” dicha información a un 
sistema legible por él (es decir, ceros y 


Lectura de memoria 


Escritura 


unos) mediante la función de codifica- 
ción; análogamente, será necesario rea- 
lizar la operación contraria, llamada de- 
codificación para que los resultados de 
los programas ya ejecutados sean inteli- 
gibles al hombre. 

Como dispositivos de este tipo pode- 
mos citar, como más conocidos: 


— Teclado: dispositivo de entrada. 
— Pantalla, impresora: dispositivos de 
salida. 


En cuanto al segundo grupo menciona- 
do, también llamado “memoria externa”, 
se encarga de almacenar los datos del 
ordenador que necesitará recuperar en 
cualquier momento y que en un instante 
dado no cupieron en la memoria interna 
del ordenador. 


Dentro de este grupo están los conoci- 
dos discos, disquetes, cintas magnéticas, 
etcétera. 


INTRODUCCION 


| tuviéramos que defi- 
nir el microprocesa- 
dor 6502 de forma rá- 
pida y sencilla,diría- 
mos que se trata de 
una CPU integrada en 
una sola “pastilla”. Su 
esquema responde 
al dibujo de la figura y a continuación ve- 
remos su funcionamiento básico. 


CONTROL 
EXTERNO 


- E 


CONTROL 
INTERNO 
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(COMMODORE 64) 


'O Su funcionamiento 


El microprocesador 6502 funciona de 
la siguiente manera: contiene un juego 
de instrucciones codificadas con 8 bits 


8 BITS BUS 
DATOS 
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BUS 
DIRECCIONES 


46 BITS 


que entiende y es capaz de ejecutar. Así, 
por ejemplo, hay una instrucción que 
consiste en traer un dato de una determi- 
nada posición de memoria a uno de los 
registros internos del 6502. Esta instruc- 
ción tendrá un código de 8 bits y cuan- 
do se la mandemos al microprocesador, 
éste lo decodificará y realizará la opera- 
ción. 

Para obtener una instrucción (su códi- 
go), el microprocesador coloca en el bus 
de direcciones (16 bits) la dirección de 
memoria donde se encuentra dicho có- 
digo y espera a que la memoria le con- 
teste colocándolo en el bus de datos (8 
bits). Los controladores de los buses de 
datos y de direcciones son los encarga- 
dos de indicar al microprocesador cuan- 
do pueden mandar datos o tienen datos 
preparados para ser leídos. 

Una vez que el 6502 tiene el código de 
la instrucción que debe ejecutar, lo guar- 
da en el registro de instrucciones y el de- 
codificador de instrucciones se encarga 
de mandar por sus líneas de salida las ór- 
denes necesarias para realizar lo que re- 
quiera la instrucción. 


' Los registros del 6502 


Con lo que hemos visto hasta ahora se 
nos plantea una pregunta: ¿Cómo sabe 
el microprocesador en qué dirección de 
memoria se encuentra la instrucción que 
debe ejecutar? 

El contador de programa (PC), uno de 
los registros del 6502, nos soluciona este 
problema. El PC es un registro que con- 
tiene la dirección de la instrucción que 
debe ejecutar el microprocesador en 
cada momento. Todas las instrucciones 
que queramos que el 6502 ejecute con- 
secutivamente (un programa) deberán 
encontrarse en posiciones de memoria 
consecutivas. De esta forma el PC, cada 
vez que obtiene un código de instrucción 
aumenta en uno para contener la direc- 
ción del siguiente byte que se debe leer 
de memoria. 

Otros registros importantes del 6502 
son: 


— El acumulador. Podríamos decir que 
es un registro “comodín” que utiliza el 


6502 para realizar gran parte de las ope- 
raciones. Así, hay muchas operaciones 
que sólo pueden realizarse cuando el 
operando o alguno de ellos se encuen- 
tra en el acumulador. Esto nos ahorra te- 
ner que especificar en muchas instruc- 
ciones los operandos porque ya sabe- 
mos que se refiere al número guardado 
en el acumulador. 

— El puntero de pila (S). Es un registro 
que contiene la dirección de memoria 
de la “cima” de Ía pila. La pila es un 
conjunto de direcciones de memoria 
consecutivas donde guardamos datos 
con la característica de que el último 
dato introducido será el primero en sa- 
car. La “cima” de la pila será precisa- 
mente la dirección del último dato intro- 
ducido. Cuando se introduce un dato se 
aumenta en 1 el puntero de pila y cuan- 
do se saca un dato se disminuye en 1. 


PILA PILA 


Al sacar Ss 
un dato 
queda 


4004H 


4000H 


un dato 
queda 


— El registro de estado (P). Es un regis- 
tro distinto de los demás. No contiene un 
número codificado con 8 ó 16 bits, como 
los anteriores, sino que tiene 8 bits cada 
uno, con un significado distinto. Cada 
uno de los bits pasará de 0 a 1 cada vez 
que en el resultado de una operación se 
produzca alguno de los casos que re- 
presenta cada bit: resultado negativo, 
rebosamiento en una operación aritméti- 
ca, cero, acarreo en una suma, etc. De 
todos los bits del registro representados 
en la figura son el 0, 1, 6, 7 los que más 
nos van a interesar al comenzar a dar 
nuestros primeros pasos con la progra- 
mación del 6502. 
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Los bits del registro de estado nos sir- 
ven para realizar instrucciones condicio- 
nales según el valor de alguno de los bits, 
lo que nos indicará lo que haya ocurrido 
en la última instrucción. Existen en el jue- 
go de instrucciones del 6502 algunas 
que consisten en realizar algo (normal- 
mente un salto a otra dirección de me- 
moria) únicamente cuando se cumpla 
que alguno de los bits del registro de es- 
tado esté a 1 


| 
Parador |Interrupción Acarreo 


programa 


Rebosamiento 


Resultado Sin Modo Cero 
negativo usar decimal 
El registro P 


También existe el registro índice (1), 
que veremos a continuación, al estudiar 
los modos de direccionamiento. 

Los bits de cada registro serán, visto lo 
anterior, los siguientes: 


— Acumulador (registro de datos): 8 
bits. 

— Puntero de pila (registro de direc- 
ciones): 16 bits. 

— Registro de estado: 8 bits. 

— Contador de programa (registro de 
direcciones): 16 bits. 


' Las instrucciones del 6502 


Como ya hemos dicho anteriormente, 
las instrucciones del 6502 son códigos de 
8 bits. Aquéllas que necesiten algún tipo 
de operando llevarán a continuación del 
byte de la instrucción uno o varios bytes 
con los operandos correspondientes. Así, 
una instrucción que sea sumar un valor al 


acumulador, a continuación del byte 
con el código de instrucción deberá lle- 
var otro byte con el valor que hay que su- 
mar. El PC deberá tener en cuenta este 
tipo de instrucciones y leer después del 
código los bytes de datos que conten- 
gan. Cuando programamos en lenguaje 
máquina del 6502 normalmente se escri- 
ben los bytes mediante su codificación 
en hexadecimal (8 bits = 2 cifras hexade- 
cimales). 


) Métodos de 
== direccionamiento 


Las instrucciones del 6502 nos permiten 
varios sistemas de direccionamiento: 


— Direccionamiento inmediato. El 
dato viene en un byte a continuación del 
byte de instrucción. 


— Direccionamiento absoluto. El dato 
está en la dirección de memoria que se 
intoduce como operando en los dos 
bytes siguientes al de la instrucción. 


— Direccionamiento de página cero. 
Es como el absoluto, pero suponiendo 
que el primer byte de la dirección es 00, 
por lo que la instrucción únicamente lle- 
vará un byte con la segunda parte de la 
dirección. 


— Direccionamiento indexado. A la di- 
rección que se introduce en los dos bytes 
siguientes a la instrucción hay que sumar- 
le el contenido del registro indice (|), de 
8 bits, para obtener la dirección donde 
se encuentra el dato. 


— Direccionamiento indirecto. En los 
dos bytes siguientes a la instrucción se 
encuentra la dirección donde está la di- 
rección donde se encuentra el dato. Esos 
dos bytes indican dos posiciones de me- 
moria por el procedimiento de página 
cero. 


El 6502 posee instrucciones que permi- 
ten obtener cada uno de los datos por 
los distintos medios de direccionamiento 
expuestos. 
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PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTION 
PROGRAMAS DE JUEGOS 


Cambio de 


coordenadas 
es una de las más útiles rutinas para cual- 
quier estudiante o profesional. Por sí mis- 
Este primer progra- ma sirve para poco, pero unida a tus pro- 
ma, que sirve para to- pios programas puede serte de mucha 
dos los ordenadores, ayuda. 


CAMEIO DE COORDENADAS 


SEMANA 


1 00 REM BIOIIOOIOIOIOOIOIOIOIOIOIOIOIOIRIOIOIO ROBO BRIORIODIRRIBOIORIBIBIORIORIBOIDRIORIORIBIDODRDRRIODIÓN 

REM GOGO. XA CAMBIO DE COORDENADAS DE RECTANGULAR A AOGIOIBIOOIOIOIO DION k 
IMOIBIRIO DIO: POLAR Y VICEVERSA FOGIOIOIOIOIGIOIOIDIO IO 

MOIGIOROIOIORO OIGO OOOO! OIOIOROIOOIOIOIOIOIOIOIOIOIOIOIOIOROIOIOIOROIOIOIOIOROIOIOROIOOIOIOROIOIOROROIOIOIGIOIOIOÓK 


IMOIOIOIOOIOOIOIIOIOOIOOIOOIOIOIOIOOIOOIOIOOIOIOBIOBIORIBORIORIORIBORIBRIORIRIORIORIORIORRDRIBDONE 
IOIOIGIOIBOIOIGOIGIGIGIOIOOK: —POR JUAN MANUEL GUTIERREZ LETTON AMOIGIOIOIOOIOIDIOMIONK 
IVOIOIOOIOIOOOIOOOIOIOOIO OOOO RRIBIORIRIRRRRRIRRRIBIRRROIRIORRDIBORBIBDRIBBIORBERR 


MOI OIOIOIOIOIOORIOIOOIOIOIOIOIRORIOIODRIROOIORIBOIOIORORROIRDIROIRRIBRRRDIORRBBÓRIBDRDÓR 
MOGIOIOIOIOIOIOIGIGIOIIÓONK: (cc) EDICIONES SIGLO CULTURAL, 1987 AGOGIOIOIOOIOIOIOIOOONK 
VOBIOIOIOIOOIOIO OIDO IOIOOIOIOIOOIOBIOOIOIOIOROIOORIO RIOR) 


LOCATE 12,20 

INFUT "de rectangular a polar (S/N)”0$ 
IF 0%$="s" OR 0O$="S" THEN GOTO 119 

IF O$="N" OR O$="n" THEN GOTO 130 


120 INPUT "a="A 

121 INPUT "b=";kB 

122 LET M=SOR(A7*2+B"2) 

123 1F A=0 THEN IF B<O THEN LET C=-90:GOTO 129 
124 IF A=0 THEN IF B>0 THEN LET C=90: GOTO 129 
125 IF A<O THEN 1F B=0 THEN LET C=180:GOTO 129 
126 LET C=ATN(B/A) 

127 IF A<O THEN IF E<O THEN LET C=C-180:GOTO 129 
128 IF A<O THEN IF B>0 THEN LET C=C+180:GOTO 129 
129 PRINT M3"C["303”3"2:GOTO 138 

130 CLS 

131 INPUT "modulo=”"3M 

132 INPUT "argumento="; 
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133 LET A=MXACOS (C) 
134 LET M=MXSIN(C) 


137 PRINT Az" + Oj” 
138 LOCATE 12,26 


140 A$=INKEYS: IF A$="" 
141 CLS 

142 LOCATE 1,1 

143 PRINT "quiere seguir (S/N)"; 

144 INPUT As 

145 IF A$="s" OR A$="S" THEN GOTO 100 
146 CLS 

147 PRINT " 
LAS) RRTNT) + el 
149 PRINT 

150 PRINT * 

151 PRINT 

152 PRINT 


THEN 140 


El programa puede funcionar perfecta- 
mente sin cambios en el IBM pc, xt y at, 
en todos los compatibles de IBM y en el 
AMSTRAD. Para el resto de los ordenado- 
res te propongo las siguientes modifica- 
ciones. 


COMMODORE: 


113 PRINT CHR$(147) 

114 POKE 214,12:POKE 211,19 

119 PRINT CHR$(147) 

130 PRINT CHR$(147) 

138 POKE 214,12:POKE 211,19 

140 GET A$:IF AS="" THEN GOTO 140 
141 PRINT CHR$(147) 

142 POKE 214,1:POKE 211,0 

146 PRINT CHR$(147) 


MSX: 


114 LOCATE 20,12 
138 LOCATE 20,12 
142 LOCATE 1,1 


SPECTRUM: 


114 PRINT AT 12,2; 
138 PRINT AT 12,2 
142 PRINT AT 0,0; 


La función de este programa es pasar 
de coordenadas polares a rectangulares 
y de rectangulares a polares. Al principio 
del programa (línea 115) se pregunta al 
usuario cuál de las dos cosas quiere ha- 
cer. 


135 IF B<O THEN PRINT Ajz"-(";¡ABS(B);3")j":GOTO 138 
136 IF B>0 THEN PRINT Az"+"5B3"3":GOTO 1389 


139 PRINT "pulse una tecla para continuar” 


c'. Notas sobre el programa 1 


En el caso de que utilices esta rutina en 
uno de tus programas, esta línea la ten- 
drás que quitar, y llamar a la línea 119 
para pasar de coordenadas rectangula- 
res a polares, o a la línea 130 para pasar 
de polares a rectangulares. 

Si vas a utilizar este programa como 
una rutina de tus programas tendrás que 
hacer las siguientes modificaciones: 


1. Quitar el INPUT de la línea 115, así 
como las líneas 116 y 117, como ya he- 
mos dicho arriba. 

2. Quitar las líneas 119, 120 y 121. Los 
valores de A y B tendrás que darlos por 
programa. 

3. Quitar las líneas 129 y 130. El resul- 
tado del programa se te devuelve en las 
variables numéricas M y C. 

4. Quitar las líneas 131 y 132. Si eliges 
pasar de coordenadas polares a rectan- 
gulares, los valores de M y de C tendrás 
que darlos por programa. 

5. Quitar las líneas que van desde la 
135 hasta el final del programa. El resul- 
tado de la operación se devuelve en A y 
en B. 

6. Tendrás que poner en alguna par- 
te del programa un RETURN para que, 
cuando termine el cálculo, se devuelva 
el control al programa principal. 


m Awari 


Este juego de mesa (o de suelo) es ori- 
ginario del antiguo Egipto. También se le 
conoce con el nombre de WARI O MAN- 
CANA. Los africanos dicen que es un «JUE- 
GO DE HOMBRES», pero también pueden 


AWARI 


RR 


jugar a él las mujeres, y de hecho, cuan- 
do no están sus maridos, juegan. 

La versión que proponemos aquí es un 
poco más sencilla que la que se juega 
en la realidad. Esto es así para no hacer 
el programa más largo de lo que ya es y 
para que las reglas del juego no sean tan 
complicadas. 


10 REM HIM DD ME E MM MD HH MH 

11 REM ** $ 

12 REM * e 

13 REM + AAAA Y W AAAA RRRRR — IIIII ** 

14 REM .* A AW wA AR R I $. 

15 REM ** A A WWW A AR R 1 $ 

16 REM *. AAAABRA WWW AAAABRA RRRRR 1 ** 

17 REM ** A A Wow A ARR 1 ** 

18 REM ** A A wow A AR OR 11111 ** 

19 REM *. ** 

20 REM ** ** 

21 REM MM E DE HE 6 DM MH 

22 REM 

23 REM 0 6 DOM MM MD O 0 MM IM 
IN e 
25 REM 44. REALIZADO POR FRANCISCO MORALES GUERRERO 4444616360102 
26 REM esto dd 6 MH MM DM MM HI 
27 REM 

28 REM ese 606 dl 6 0 E DE E MH MM 6 MD 0 2 dd 
29 REM seme 06 6 6 6 dd 6 MH Md DD MD 6 ME 
3O REM xx” (c)> EDICIONES SIGLO CULTURAL, 1987 INIA 
Z1 REM ere 6 6 6 ll DH MM 0 MM MM Md 
32 REM 

100 LET N=0 

101 DIM B(13):DIM G(13):DIM F(50) 

102 CLS 

103 PRINT "oo 6 dd 6 6 MH A MH A 

104 FOR I=1 TO 17 


127 
128 
129 
130 
131 

132 
133 
134 
135 
136 
137 
138 
139 
140 
141 


PRINT "*"3TAB(40) "2." 
NEXT 1 
PRINT 
GOSUB 306 
LOCATE 16,3:PRINT "(c) Ed. 
FOR I=1 TO 2000 
NEXT 1 
LOCATE 12,3 
PRINT 
LET A$=INKEYS$: IF A$="" THEN GOTO 114 
IF A$="n" 
IF As$<>"s" 
GOSUB 277 
CLS 
GOSUB 306 
LOCATE 24,1 
FOR I=i TO 4 

PRINT 
NEXT 1 
LOCATE 6,1:PRINT "=======================>o====o===o========" 
PRINT 
PRINT 
LET E=0 
FOR I=0 TO 12 

LET B(1)=3 
NEXT 1 
LET C=0 
LET F(N)=0 
LET B(13)=0 
LET B(6)=0 
GOSUB 206 
LOCATE 16,1 
PRINT " 

LOCATE 16,1 

PRINT "MUEVES TU ";:GOSUB 174 
IF E=0 THEN GOTO 159 

IF M=H THEN GOSUB 170 


PND MM A 
Siglo Cultural" 
"Quieres ver las instrucciones S/N " 


OR A$="N" THEN GOTO 118 
AND A$<>"S" THEN GOTO 112 


PROGRAMAS 


142 IF E=0 THEN GOTO 159 

143 LOCATE 16,1 

144 PRINT ” ” 
145 LOCATE 16,1 

146 PRINT "MI MOVIMIENTO ES "; 

147 GOSUB 240 

148 IF E=0 THEN GOTO 159 


149 IF M=H THEN PRINT ",";:GOSUB 240 
150 FOR I=1 TO 1500 
151 NEXT 1 « 


152 IF E>0 THEN GOTO 135 

153 LOCATE 16,1 

154 PRINT " " 
155 LOCATE 16,1 

156 PRINT "PULSA UNA TECLA PARA VER MI MOVIMIENTO" 
157 LET A$=INKEY$: IF A$="" THEN GOTO 157 

158 IF E>0 THEN GOTO 135 

159 PRINT 

160 FOR I=1 TO 1500 

161 NEXT 1 

162 LOCATE 16,13 

163 PRINT " " 
164 PRINT "FIN DEL JUEGO. ”:PRINT 

165 LET D=B(6)-B(13) 

166 IF D<O THEN PRINT "TE HE GANADO POR “;-D3" PUNTOS"*GOTO 315 
167 LET N=N+1 

168 IF D=0 THEN PRINT "HEMOS EMPATADO":*GOTO 315 
169 PRINT "ME HAS GANADO POR "¿Dj"PUNTOS":GOTO 315 
170 LOCATE 16,1 

171 PRINT * " 
172 LOCATE 16,1 

173 PRINT "MUEVE OTRA VEZ "; 

174 INPUT M 

175 1F M<7 THEN IF M>O THEN LET M=M-1:GOTO 188 

176 LOCATE 16,1 

177 PRINT " " 
178 LOCATE 16,1 

179 PRINT " " 
180 LOCATE 16,1 

181 PRINT "MOVIMIENTO NO PERMITIDO" 

182 BEEP:BEEP 

183 FOR I=1 TO 1000 

184 NEXT 1 

185 LOCATE 16,1 

186 PRINT " " 
187 GOTO 170 

188 IF B(M)=0 THEN GOTO 179 

189 LET H=6 

190 GOSUB 192 

191 GOTO 206 

192 LET Kk=M 

193 GOSUB 227 

194 LET E=0 

195 IF K>6 THEN LET k=K+7 

196 LET C=C+1 

197 IF C<9 THEN LET F(N)=F (N)x*6+K 

198 FOR I1=0 TO 5 

199 IF E(1)<>0 THEN GOTO 202 

200 NEXT 1 

201 RETURN 

202 FOR I=7 TO 12 

203 IF B(1)<>0 THEN LET E=1:RETURN 

204 NEXT 1 

205 RETURN 

206 LOCATE 10,1 

207 PRINT 

208 PRINT " ", 

209 FOR I=12 TO 7 STEP -1 

210 GOSUB 224 

211 NEXT 1 

212 PRINT:PRINT " "3 

213 LET I=13 

214 GOSUB 224 

215 PRINT " ", 

216 PRINT B(6) 

217 PRINT " "3 

218 FOR I=0 TO 5 

219 GOSUB 224 

220 NEXT 1 

221 PRINT 

222 PRINT 

223 RETURN 


224 1F B(1)<10 THEN PRINT " "z 
225 PRINT B(1); 

226 RETURN 

227 LET P=B(M) 

228 LET B(M)=0 

229 FOR P=P TO 1 STEP -1 

230 LET M=M+1 

231 IF M>13 THEN LET M=M-14 
232 LET B(M)=B(M)+1 

233 NEXT P 

234 1F B(M)=1 THEN 1F M<>6 THEN 1F M<>13 THEN IF B(12-M)<>0 THEN GOTO 236 
235 RETURN . ] ; 

236 LET B(H)=B(H)+B(12-M)+1 
237 LET B(M)=0 

238 LET B(12-M)=0 - 
239 RETURN 

240 LET D=-99 

241 LET H=13 

242 FOR I=0 TO 13 

243 LET G(1)=B(1) 

244 NEXT 1 

245 FOR J=7 TO 12 

246 1F B(J)=0 THEN GOTO 269 
247 LET G=0 

248 LET M=J 

249 GOSUB 227 

250 FOR I=0 TO 5 


251 IF B(1)=0 THEN GOTO 257 

252 LET L=B(1)+1 

253 LET R=0 

254 IF L>13 THEN LET L=L-14:LET R=1:GOTO 254 

255 IF B(L)=0 THEN IF L<>6 THEN 1F L<>13 THEN LET R=B(12-L)+R 
256 IF R>Q THEN LET Q=R 


257 NEXT 1 

258 LET Q=B(13)-B(6)-0 
259 IF C>8 THEN GOTO 265 
260 LET K=J 


261 IF K>6 THEN LET K=K-7 
262 FOR 1=0 TO N-1 
263 IF F(N)*b6+K=INT(F (1)/67 (7-C)+.1) THEN LET QO=0-2 


264 NEXT 1 
265 FOR I=0 TO 13 


266 LET B(1)=G (1) 

267 NEXT 1 

268 IF 0>=D THEN LET A=J:¿LET D=G 
269 NEXT J 


270 LET M=A 

271 PRINT CHR$(42+M) 3 

272 GOTO 192 

273 FOR 1=0 TO N-1 

274 PRINT B(1) 

275 NEXT 1 

276 END 

277 REM 

278 REM dende M6 de dd ME 

279 REM * INSTRUCCIONES +* 

280 REM qe e de Md E 

281 REM 

282: CLS 

283 PRINT TAB(14)3 "INSTRUCCIONES" 
284 PRINT TAB(13) 3" --==-=-=======-=- Ls 


285 PRINT + 

286 PRINT " El juego del AWARI (tambien llamado WARI o MANCALA) es muy antigu 
O, tanto que ya se practicaba en el antiguo egipto." 

287 PRINT:PRINT " La forma de jugar es la siguiente:" 

288 PRINT 


289 PRINT " El tablero esta dividido en seis casi- llas en cada cara. Los movimi 
entos se realizan cogiendo todas las fichas de" 

290 PRINT "una cierta casilla que, no este vacia, yrepartiendo dichas fichas por 
las casi- llas contiguas hacia la derecha, ponien-" 

291 PRINT "do una en cada casilla." 


292 PRINT 
293 PRINT " Cada torno puede ser de una o dos juga-das. Se realizara una segunda 
jugada cuando ninguna de las fichas pasa al la-do del oponente." 


294 PRINT:PRINT "PULSA UNA TECLA"; 

295 LET A$=INKEYS$: 1F A$="" THEN GOTO 295 

296 CLS 

297 PRINT " Para ganar hay que conseguir apropiarsede las fichas del oponente. E 
sto se con-sigue cuando despues de un movimiento, la ultima ficha cae en un cas 
illero que" 

298 PRINT "tiene solo una, dos o tres fichas. Todaslas fichas de dicho cubilete 
son comidas" 

299 PRINT 
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PRINT " El juego termina cuando una de las ca- ras del tablero esta vacia." 


PRINT 
PRINT "PULSA UNA TECLA" 


LET A$=INKEYS$: 1F A$="" THEN GOTO 303 


CLs 

RETURN 
e 
REM * ROTULO "A NW ARI" e 
REM 6 6 MMM 
REM 

LOCATE S,S5S:PRINT " $$ + 
LOCATE 6,5:PRINT "* ». » >* $» 


$  4RHC CHIH CR 
* e ud + 


LOCATE 7,S5:PRINT "$4RHHH 4 4 $4 4RRHA AMOO +" 
» $* 


LOCATE 8,5:PRINT "* 
RETURN 
PRINT:PRINT 


PRINT "(HECHAMOS OTRA PARTIDA? (S/N) "z 


LET A$=INKEY$: IF As$="" THEN GOTO 317 
IF As$="s" OR A$="S" THEN GOTO 118 
IF A$<>"n" AND A$<>"N" THEN GOTO 317 


CcLs 

GOSUB 306 

LOCATE 24,1 

FOR I=1 TO 4 
PRINT 


NEXT 1 
LOCATE 10,1 
PRINT 

PRINT HANA 
PRINT * 
PRINT * 


AÁMA NA HAHN 


PRINT * 
PRINT * 
PRINT * 
PRINT 
PRINT 

END 


*. * 
* o* 
PRINT HAHAHA 
*. o * 
*o* 
*. o* 


HANA MNR 


Las reglas del juego son las siguientes: 

Este juego se realiza en una especie de 
tablero como el que se ve en la figura 1. 
En realidad cada casilla, aunque la lla- 
maremos así, no es tal casilla, sino que 
es un cuenco o un recipiente mediana- 
mente hondo dentro del cual pondremos 
las fichas. 

En la versión para el ordenador hemos 
decidido poner tres fichas en cada recli- 
piente. 

Las dos casillas que están vacías son 
las que almacenarán las fichas que le va- 
yamos comiendo al enemigo. Este es el 
objetivo primordial del juego. Pero el jue- 
go no termina cuando nos hemos comi- 
do todas las fichas del contrincante, 
pues a veces es imposible saber cuál son 
las propias y cuáles las del contrincante, 


*” 
* e 
MNR 


sino que lo hace cuando una de las ca- 
ras se ha quedado sin fichas. En ese mo- 
mento se ve la diferencia de fichas que 
hay entre los dos jugadores y gana el 
que más tiene. 

Para mover las fichas sólo hay que de- 
cir el número de casiila sobre la que que- 
remos actuar. Una vez sabido esto, se re- 
parten todas las fichas que haya en di- 
cha casilla entre las casillas contiguas 
por la derecha y poniendo una ficha en 
cada casilla. 

Si nos fijamos en la figura 1, veremos 
que en la posición a, en la casilla 3 hay 
tres fichas. Si movemos desde la casilla 
3, ésta se quedará vacía y se pondrá una 
ficha en la 4, otra en la 5 y otra en la 6. 
Con ello estas tres casillas pasarán a te- 
ner 4 fichas. 


| ¡a 5 4 3 2 1 =—Lado del ordenador 
> lelals]a[s[s]3] 
po! -—Tu Casilla almacén 
SEE RES 
; Al 1.2 348 6 Tu lado 
P ' Casilla almacén 
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del ordenador 


Tablero de Awarl. 


Se come una ficha del contrincante 
cuando, al hacer un movimiento, se cam- 
bia de lado (se pasa al lado del contrin- 
cante) y la última de las fichas a colocar 
cae en una casilla que no esté vacía y 
que tenga como máximo tres fichas. El ju- 
gador que haga dicha jugada cogerá to- 
das las fichas de dicho cuenco y las pon- 
drá en el cuenco de recuento. 

Cabe la posibilidad de hacer dos juga- 
das seguidas. Esto sucede cuando la úl- 
tima ficha ha caído en el primer casillero 
del contrincante. 


Ejemplo de ejecución del programa Awarl. 


Este programa funciona en el IBM pc, xt, 
at y compatibles, así como en el AMS- 
TRAD. Para los demás ordenadores os da- 
mos las variaciones: 


COMMODORE: 


102 PRINT CHR$(147) 

109 POKE 214,16:POKE 211,2:PRINT ”(c) 
Ed. Siglo Cultural 

112 POKE 214,12:POKE 211,2 

114 GET AS:IF A$="” THEN GOTO 114 

120 POKE 214,23:POKE 211,0 

124 POKE 214,6:POKE 211,0:PRINT 


136 POKE 214,16:POKE 211,0 
138 POKE 214,16:POKE 211,0 
143 POKE 214,16:POKE 211,0 
145 POKE 214,16:POKE 211,0 
153 POKE 214,16:POKE 211,0 
155 POKE 214,16.POKE 211,0 
157 GET AS$:IF AS$="” THEN GOTO 157 
0 
,0 
0 
0 
0 
0 
0 


cl cl cd cl 
— 


170 POKE 214,16:POKE 21 
172 POKE 214,16:POKE 21 
176 POKE 214,16:POKE 21 
178 POKE 214,16:POKE 21 
180 POKE 214,16:POKE 21 
185 POKE 214,16.POKE 21 
206 POKE 214,10:POKE 21 
282 PRINT CHR$(147) 
295 GET A$:IF A$="""THEN GOTO 295 
296 PRINT CHR$(147) 

303 GET AS:IF A$="""THEN GOTO 303 
304 PRINT CHR$(147) 
310 POKE 214,5:POKE 211 
311 POKE 214,6:POKE 211,5 
312 POKE 214,7:POKE 211,5 
313 POKE 214,8:POKE 211,5 
320 PRINT CHR$(147) 

326 POKE 214,10:POKE 211,0 


MSX: 


Lo único que hay que hacer para que 
el programa funcione en el MSX es cam- 
biar el orden de los argumentos de todas 
las sentencias LOCATE. Esto es, si apare- 
ce la instrucción LOCATE 12,1 nosotros 
tendremos que poner LOCATE 1,12. 


La versión para SPECTRUM de este pro- 
grama aparecerá en tomos posteriores. 


Este programa es una rutina en CODI- 
GO MAQUINA para el SPECTRUM que nos 
permitirá la impresión en pantalla de 
cualquier mensaje con las letras en tres 
dimensiones. 

La rutina no es reubicable. Esto es, no 
se puede localizar en cualquier parte de 


15 


Letras en tres dimensiones 
para SPECTRUM 
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la memoria, sino sólo en la posición 
64500 de ésta. No es reubicable debido 
a que tiene saltos absolutos y subrutinas. 


1 POKE 23658,0: CLEAR 644992 
GO SUB 1000 
2 CLS : PRINT AT 10,13 INK 6; 
"QUIERES GRABAR EL PROGRAMA S/N" 
3 IF INKEYS$="n" THEN GO TO 6 
4 IF INKEY$="s" THEN PRINT A 
T 15,9; FLASH 1;" PULSA ENTER ": 
PAUSE 10: FOR I=1 TO SO: NEXT 1 
: PAUSE O: POKE 23736,1811 SAVE 
"LETRAS 3-D" LINE 1: GO TO 6 
535 60 TO 3 + 
6 CLS : PAUSE 3: FOR i=0 TO 3 
Oz NEXT i2z PRINT AT 10,13 INK 5; 
" GRABO EL CODIGO MAQUINA S/N " 
7 1F INKEY$="n" THEN GO TO 9 
990 
8 IF INKEY$="s" THEN PRINT A 
T 15,9; FLASH 13" PULSA ENTER ": 
PAUSE 3: FOR I=1 TO 50: NEXT 1: 
PAUSE O: FOKE 23736,181: SAVE " 
L. 3-DCODE "CODE 64500,483: GOD T 
O 9990 
9 GO TO 7 


10 REM 
POSICION SIGNIFICADO 
LONGITUD DEL MEN 
23300 SAJE MULTIPLICADO 
POR OCHO. 


11 REM 
POSICION SIGNIFICADO 
23302 XSIZE 
23303 YSIZE 
23311 XPOS 


23312 YPOS 


15 PRINT  INK O¡AT 20,0¿M$: PO 
KE 23300,LEN M$x*8 

20 POKE 23311,XP0S: POKE 23312 
,YPOS 

30 POKE 23302,XSIZE: POKE 2330 
3,YSIZE 

40 INK 1: 


RANDOMIZE USR 64500 


50 RETURN 

1000 INK 6: PAPER Oz BORDER Oz C 
LS : PRINT AT 0,63 INK 4; 1985 

y Fco. Morales.":z INK 5: PLOT 40 
1165: DRAW 179,0 

1010 INK 6: PRINT *“" ESTE ES UN 
PROGRAMA QUE TE PER-MITIRA LA C 
REACION DE  MENSAJESDE CUALQUIE 
R TIPO EN TRES DIMEN-SIONES. " 
1020 PRINT **" PARA UTILIZARLO S 
OLO HAS DE DAREL MENSAJE A IMPRI 
MIR, LA POSI-CION DONDE QUIERES 
QUE LO IMPRI-MA Y LA ALTURA Y 
ANCHURA EN LAQUE LO QUIERES." 
1030 INK 7: PRINT *“"- EL MENSAJ 
E IRA EN M$""*"- LA POSICION EN 
XPOS E YPOS""*"- LA ALTURA Y ANC 
HURA EN YSIZE Y XSIZE RESPECTIVA 
MENTE. " 

1040 PRINT RhOz INK 2; FLASH 13" 
PULSA UNA TECLA PARA CONTINUAR " 
1050 PAUSE O 


1060 INK 6: CLS 2 PRINT AT 9,95 

FLASH 1;"CARGANDO DATAS";AT 11,6 
5 FLASH 13 INVERSE 15 INK 43" ES 

PERA UN MOMENTO. " 

1070 PRINT AT 15,63 INK 5; "CHECK 

sum = " 

1080 LET CONTA=0* LET POS=645002: 
RESTORE 7000 

1090 FOR 1=0 TO 482: READ Az POK 

E POS+I1,A: LET CONTA=CONTA+A: PR 
INT AT 15,17;¡CONTA¿+* NEXT 1 

1092 IF CONTA<>40670 THEN GO TO 
6000 

1100 CLS : PRINT AT 10,0; INK 43 
"LETRAS 3-D INSTALADO EN LA 4450 

o" 

1110 PRINT AT 12,0; FLASH 1;3"PUL 

SA UNA TECLA PARA DEMOSTRAION"1 

PAUSE O S 

1120 LET M$="letras":* REM MENSAJ 

E 

1130 LET XPOS=0: REM POSICION EN 
XxX 

1140 LET YPOS=95: REM POSICION E 
N Y 

1150 LET XSIZE=4: REM ANCHURA 
1160 LET YSIZE=11:+ REM ALTURA 
1170 LET I=2:* CLS 2: GO SUB 10 
1180 LET 1I=4: LET M$="3-D AL 
ET XPOS=39: LET YPOS=40: LET XSI 
ZE=9: LET YSIZE=6: GO SUB 10 
1190 LET I=5: LET M$="PULSA UNA 
TECLA": LET XPOS=6: LET YPOS=16: 
LET XSIZE=2: LET YSIZE=28* GO SU 
B 10 

1200 PAUSE Oz RETURN 

6000 CLS : PRINT  INK 4;AT 10,13 
FLASH 1; "ERROR"3 FLASH 0;" EN D 
ATAS, PRUEBA DE NUEVO"; INK 6 AT 
15,9; FLASH 13" PULSA ENTER ": P 
AUSE 3: PAUSE O: GO TO 20000 
6500 

6510 REM em MM 
6520 REM. **x** DA TAS reee 
6530 REM qepd 6 6 0 MIME MIE 
6540 


7000 DATA 0,217,229,217,58,4,91, 
50,17,91,50,19,91,62,15,50,18,91 
,50,5,91,58,6,91,71 


7005 DATA 5,58,17,91,79,167,129, 
16,252,71,58,15,91,167,128,50,10 
,91,58,7,91,71,5,58,19 


7010 DATA 91,214,8,79,167,129,16 
,252,71,58,16,91,167,128,50,11,9 
1,205,101,252,58,18,91,61,254 


7015 DATA 7,50,18,91,50,5,91,32, 
193,62,15,50,18,91,50,5,91,58,17 
,91,60,42,19,91,189 


7020 DATA 50,17,91,50,4,91,32,16 
9,217,225,217,251,201,62,0,50,14 
,91,205,169,253,42,4,91 68 


7025 DATA 77,205,160,252,202,168 
,253,58,6,91,71,197,58,10,91,128 
,79,58,11,91,71,205,229,34,14 


7030 DATA 0,58,7,91,71,17,255,2 
55,205,186,36,193,120,61,71,254, 
255,32,223,195,172,252,205,170,3 
4 

7035 DATA 71,4,126,7,16,253,203, 
71,201,58,4,91,79,58,5,91,60,71, 
205,160,252,32,39,58,4 


7040 DATA 91,61,79,58,5,91,71,20 
5,160,252,32,25,58,10,91,79,58,1 
1,91,71,205,229,34,58,6 


7045 DATA 91,79,58,7,91,71,17,1, 
1,205,186,36,58,4,91,79,58,5,91, 
61,71,205,160,252,32 


7050 DATA 39,58,4,91,60,79,58,5, 
91,71,205,160,252,32,25,58,8,91, 
79,58,13,91,71,205,229 


7055 DATA 34,58,6,91,79,58,7,91, 
71117 +144,205, 186,36,58,4,91,79, 
58,5,91,60,71,205 


7060 DATA 160,252,32,23,58,8,91, 
79,58,9,91,71,205,229,34,58,6,91 
,79,6,0,17,1,1,205 


7063 DATA 186,36,58,4,91,60,79,5 
8,5,91,71,205,160,252,32,23,58,1 
2,91,79,58,9,91,71,205 


7070 DATA 229,34,14,0,58,7,91,71 
,17,255,255,205,186,36,58,4,91,7 
9,58,5,91,60,71,205,160 


7075 DATA 252,40,5,62,1,50,14,91 
,58,4,91,60,79,58,5,91,71,205,16 
0,252,40,7,58,14,91 


7080 DATA 60,50,14,91,58,14,91,2. 
54,1,40,25,58,8,91,79,58,11,91,7 
1,205,229,34,58,6,91 


7085 DATA 79,58,7,91,71,17,1,1,2 
05,186,36,201,58,6,91,71,58,10,9 


1-128,50,8,91,58,7 


7090 DATA 91,71,58,11,91,128,50, 
9,91,58,6,91,135,71,58,10,91,128 
,50,12,91,58,7,91,71 


7095 DATA 58,11,91,144,50,13,91, 
201,0 


9990 CLS : PRINT AT 0,65 INK 4," 
1985, Fco. Morales. "¡hO0jAT 1,9 
¡ INVERSE 1;" LETRAS 3-D "2 INK 
5: PLOT 40,165: DRAW 179,0 
9999 INK 32: FOR i=0 TO 32 PLOT 1 
O+i,20+i: DRAW 0,110-2x*i:z DRAW 2 
35-2*i,0: DRAW 0,-110+2*i:2 DRAW 
-235+2*14 ,01 NEXT i2z LET i=612 LET 
mé="ADIOS": LET XPOS=25: LET YP. 
0S=40: LET XSIZE=S: LET YSIZE=10 
: GO SUB 10: PAUSE O 


Lo primero que tenemos que hacer es 
introducir el programa por el teclado del 
ordenador. Ten mucho cuidado con los 
números de las líneas DATA para no equi- 
vocarte. De todas maneras el programa 
lleva una rutina de comprobación que te 
dirá si te has equivocado. 

Una vez que esté el programa en me- 
moria ejecútalo con la sentencia RUN y 
espera que el ordenador meta el código 
máquina en su memoria. Una vez hecho 
esto te aparecerá en pantalla una de- 
mostración de lo que es capaz de hacer. 
Cuando el programa te pregunte si quie- 
res grabarlo, intoduce en tu cassette 


una cinta virgen rebobinada, pulsa a la 
vez las teclas RECORD y PLAY, espera 
unos 10 segundos y pulsa la tecla S del 
SPECTRUM. A continuación se grabará el 
programa en la cinta. 


[A Demostración del programa «Letras 3-D». 


Una vez que se haya grabado el pro- 
grama el SPECTRUM te preguntará si quie- 
res grabar la rutina en CODIGO MAQUINA. 
Si te interesa hacerlo, sólo tienes que pul- 
sar la tecla S y el ordenador lo hará. 


' Notas sobre el programa 3 


Para utilizar esta rutina en tus progra- 
mas sólo tienes que hacer lo siguiente: 

1. Introducir esta línea al principio del 
programa: 


40 CLEAR 64499:LOAD “''* CODE 


2. Introducir esta rutina al final del 
programa: 


9950 PRINT INK 0; AT 20,0;¡M$:POKE 
23300,LEN M$"8 

9960 POKE 233141,XPOS:POKE 
23312,YPOS 

9970 POKE 23302,XSIZE:POKE 
23303,YSIZE 

9980 INKI: RANDOMIZE USR 64500 
9990 RETURN 


Para usar esta rutina debes de saber 
que: 


— El mensaje a imprimir ha de ir alma- 
cenado en MS. 

— La posición en la pantalla, donde 
aparecerá el mensaje, ha de ir en XPOS 
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y en YPOS. Siendo XPOS la coordenada X 
de la pantalla y YPOS la coordenada Y. 

— La altura del mensaje tiene que ir al- 
macenado en YSIZE. 

— La anchura debe ir en XSIZE. 

— El color tiene que ir en |. 

— Si necesitas efectos de FLASH o de 
BRIGHT, tendrás que ponerlos como una 
instrucción normal antes de llamar a la: 
rutina. 


lA, Mensaje de despedida del programa 1. 


Este programa empieza en la dirección 
64500 y llega hasta el final de la memo- 
ria. Internamente utiliza la zona interme- 
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dia de impresora para almacenar una 
serie de variables. Las más importantes 
son: 


— 23300. Enesta dirección ha de ir la 
longitud de la cadena multiplicada por 
ocho. 


— 23302. XSIZE 
— 23303. “YSIZE 
— 23311. XPOS 
—= 23312. YPOS 


El mensaje a imprimir ha de estar impre- 
so en la columna 0 de la linea 20. 

Para llamar a la rutina sólo hay que ha- 
cer: 


RANDOMIZE USR 64500 


' Supergráficos 


Este es un programa realmente útil 
para todo programador o usuario. Nos 
servirá para dibujar en la pantalla de 
nuestro ordenador cualquier tipo de di- 
bujo en color o en blanco y negro. Tam- 
bién nos permitirá copiar el contenido de 
la pantalla en la impresora. 

Este programa sólo funciona en los or- 
denadores IBM pc, xt, at y compatibles. 
Para el resto de los ordenadores irá apa- 
reciendo en sucesivos tomos. 


MI MM DE MID MM MD E MB DI HE MI HE DE ME DE IMM DE ME DO DE ED DE MM EH IE E ME ME MH DE MM 


* 
* PPPP.— EEEEE RRRR 
* - E ER R 
* PE. E R R 
* PERO ERE RRRR 
* E E RR 

* E ERR 

* 

* 

* 


uuu P EEEEE R R 


GGG RRRR 


6 
6 
6 
6 
[E] 


AAA  FFFFF 111 + CCC 
GR RA 

R RA 
GG RRRR A 


* 
* 
* 
* 
AA * 
A * 
* 
* 
* 
* 


MM MMMM DH II DI MMM ME HEM IEHHE I DE DEDEE DIIMM  ID MMHEIEA HMEE 


PM DM DD DEM 
FMRE REALIZADO POR FRANCISCO MORALES GUERRERO 964 a 2626 6 16 16 26 0 HR 
MMM EMI DI DM DA 


MMM IM MI MH IE ME MH HE ME III ME ME DE E EM DIRE E MM ME MIE E MM DE II MM DEI IE MM HI IE MM 
HONRAR NH AH RARRIAR (1) EDICIONES SIGLO CULTURAL , 1OD7 HH MM NR 
MI JM ME MH IMHE DEE E IDEM NI DM IDE MEM DE MIME 


* INICIALIZACION DEL PROGRAMA +* 


OFF 
40 RT=1 TO 10 
41 KEY(RT) OFF 
42 NEXT RT 

43 SCREEN 1 


44 COLOR 16,1,,,3 

45 WIDTH 80 

46 LET X=100 

47 LET Y=100 

48 LET X1=0 

49 LET Y1=0 

50 LET SS=1 

51 DIM A%(10000) ,BZ (10000) ,C4 (3000) ,D% (2000) ,E% (2000) 
55 GOSUB 173 


56 CLS 

60 LOCATE 21,1. 

61 INPUT "Numero de puntos en X (320 o 640) = "¡A 

62 IF A<>320 AND A<>640 THEN 60 ELSE IF A=320 THEN WIDTH 40:LET SW=1 ELSE LET SW 
=2 

63 REM 


64 REM mess dt dt 66 6 M6 MM HA 

65 REM * PROGRAMA PRINCIPAL * 

TN 

67 REM 

68 LET PP=0 

69 LET II=1 

70 COLOR PP, 1I 

71 CLS 

72 GOSUB 105 

73 GET (0,0)-(319*SW,199) ,B% 

74 P=POINT(X,Y): IF P<>0 THEN P1=0 ELSE Pi=1 

75 PSET(X,Y),P1 

76 A$=INKEYS: IF A$="" THEN 76 

77 A=ASC(AS$) 

78 IF LEN(A$)=1 THEN 83 

79 1F MID$(A4$,2,1)="K" THEN PSET(X,Y) ,P: X=X-SS-SS* (X-SS<0) : GOTO 74 

80 IF MID$(A$,2,1)="M" THEN PSET(X,Y) ,P: X=X+SS+S5S* (X+55>319*SW) : GOTO 74 

81 IF MID$(A$,2,1)="H" THEN PSET(X,Y) ,P: Y=Y-SS-SS* (Y-SS5<0):GOTO 74 

82 IF MID*$(A$,2,1)="P" THEN PSET(X,Y) ,P: Y=Y+SS+SS* (Y+58S>191): GOTO 74 

83 IF A=83 OR A=115 THEN M*$="ESCALA ACTUAL ="+STR+*(SS)+" 1 
NTRODUZCA NUEVA ESCALA (1-9)":LO=2:MA+$="9":MI+$="1"“:G0OSUB 129:1F VAL (D+$)>9 AND D$ 
<>"" THEN 83 ELSE SS=VAL (D+) 

84 IF A=80 OR A=112 THEN PSET(X,Y),11:2X1=X:Y1=Y:SWW=1:GOTO 74 

85 IF A=79 OR A=111 THEN PSET(X,Y),PP:X1=X:Y1=Y:SWW=2:G0TO 74 

86 IF A=67 OR A=99 THEN LO=2:MA+$="4":MI$="0":M*$="COLOR":GOSUB 129: 1F VAL (D%$)>4 A 
ND D$<>"" THEN 85 ELSE II=VAL (D$) 

87 IF A=76 OR A=108 THEN PSET(X,Y) ,P:GOSUB 105: LINE (X1,Y1)-(X,Y) ,-11% (SWW=1)-—PP* 
(SWW=2) :X1=X:Y1=Y:GOTO 74 

88 IF A=70 OR A=102 THEN PSET(X,Y) ,P:GOSUB 105: DD=POINT(X,Y):FOR I=X TO 319*SWw: 1 
F POINT(1,Y)<>DD THEN DD=POINT(1,Y):PAINT(X,Y),11,DD:GOTO 74 ELSE NEXT 1:GOTO 74 
89 IF A=27 THEN PSET(X,Y) ,P:GOSUB 111:GOTO 74 

90 IF A=75 OR A=107 THEN PSET(X,Y),P:GET (0,0)-(319,191),B%:GOTO 74 

91 IF A=74 OR A=106 THEN PSET(X,Y),P:PUT (0,0),BZ,PSET:GOTO 74 

92 IF A=81 OR A=113 THEN PSET(X,Y),P:M$="( TERMINAMOS EL PROGRAMA ? (S/n)":MA$=" 
z"2MI$="A":LO=2:GOSUB 129: 1F D*$<>"n" AND D$<>"N" AND D$<>"S" THEN 92 ELSE IF D*+= 
"S" THEN 152 

93 IF A=90 OR A=122 THEN PSET(X,Y),P:M$="( BORRAMOS LA PANTALLA ? (S/n) ":MI$="A" 
2¿MA$="z":LO=2:GOSUB 129: 1F D$<>"N" AND D$<>"n" AND D$<>"S" THEN 93 ELSE IF D$="S 
" THEN CLS:GOTO 74 

94 1F A=68 OR A=100 THEN PSET(X,Y),P:GOSUB 105:N$="DIRECTORIO":GOSUB 166:GOSUB 1 
58:PRINT "PULSA UNA TECLA": A+=INPUT*$(1):GOSUB 111:GOTO 74 

95 IF A=66 OR A=98 THEN PSET(X,Y),P:GOSUB 105:N$="BORRAR UN PROGRAMA": GOSUB 166: 
GOSUB 158: INPUT "NOMBRE DEL FICHERO = ",A$:KILL A$:GOSUB 111:GOTO 74 

96 IF A=82 OR A=114 THEN PSET(X,Y),P:GOSUB 105: N$="RENOMBRAR UN PROGRAMA" : GOSUB 


1656:GOSUB 158: INPUT "NOMBRE ANTIGUO DEL FICHERO = ",As$:PRINT: INPUT"NOMBRE MODERN 
O DEL FICHERO = ",B*+:NAME A$ AS B*$:GOSUB 111:GOTO 74 
97 1F A=77 OR A=109 THEN PSET(X,Y),P:DEF SEG=2%*HB800:M+$="NOMBRE PARA GRABAR = ":M 


A$="2z":MI$="A":LO=12:GOSUB 129: 1F D*="" THEN GOTO 74 ELSE BSAVE D*+,0,16300:GOTO 
74 


98 IF A=78 OR A=110 THEN PSET(X,Y),P:DEF SEG=£HB800:M*="NOMBRE PARA GARGAR = ":M 
As="z":MI$="A":LO=12:GOSUB 129: 1F D$="" THEN GOTO 74 ELSE BLOAD D+:GOTO 74 
99 IF A=88 OR A=120 THEN PSET(X,Y),P:GOSUB 117:LOCATE 22,1:PRINT "X="3X3"  "¿"Y= 


"¿YÍ:LOCATE 23,1:PRINT "PULSA UNA TECLA: "A$=INPUTS (1) :GOSUB 123 

100 IF A=63 THEN PSET(X,Y) ,F:GOSUBE 173 

101 IF (A=87 OR A=119) AND SSW=0 THEN FSET(X,Y) ,P:X2=X:Y2=Y:SSW=1:GOTO 74 
102 IF (A=B87 OR A=119) AND SSW=1 THEN PSET(X,Y),P:GET (X2,Y2)-(X,Y) ,D%: AX=X-X2:A 
Y=Y-Y2:X=X2:Y=Y2:GET (X,Y)-(X+AX,Y+AY) ,E/.: SSW=0:GOTO 204 

103 PSET(X,Y),P:GOTO 74 

104 REM 

105 REM md E MR RRA 

106 REM * ALMACENA PANTALLA * 

107 REM em MM 

108 REM 

109 GET (0,0)-(319*S54W,199) ,A%: RETURN 

110 REM 
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142 


E 
REM * RECUPERA PANTALLA * 
REM 6 6 MH 


PUT (0,0) ,A%,PSET: RETURN 


REM res Md MM HI MMM II 


REM * ALMACENA 3 LINEAS INFERIORES * 
E 


GET (0,160)-(319*SW, 199) ,0C%: RETURN 


REM mera 06 E ED HE IE EH HH EII 
REM * RECUPERA 3 LINEAS INFERIORES * 
IN E 


PUT (0,160) ,C%,PSET: RETURN 


REM 6 6 6 6 MM 
REM * ENTRADA DE DATOS * 
REM 06 0 6 6 MEM 


GOSUB 117 
LOCATE 21,1 

PRINT SPC (120*SW) ; 

LET D$="" 

LET LO=0 

LOCATE 22,1 

PRINT M$;" : "¿CHR$(29); 

C$=INKEY$ 

IF C$="" THEN GOTO 140 

IF C$=CHR$(8) AND LO>O THEN LO=LO-1:D$=LEFTS$(D$,LO):PRINT CHR$(29)¿"_ "¿CHR$ 


(29) ¿ CHR$ (29) 


143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 


IF C$=CHR$(13) THEN GOTO 150 

IF C$=" " OR C$="." THEN GOTO 146 
IF C$>MA$ OR C$<MI$ THEN 140 
PRINT C$;"_"3CHR$(29); 

LET D$=D$+0$ 

LET LO=LO+1 

IF LO<>LO THEN GOTO 140 

PRINT " ":GOSUB 123: RETURN 

REM 

AA 

REM * SALIDA DEL PROGRAMA * 
AA 

REM 

GOSUB 117:LOCATE 22,1:PRINT "PULSA [ESCAPE] PARA SALIR"“*PRINT "OTRA TECLA CO 


NTINUAR":A$=INPUT$ (1): 1F ASC(A$)=27 THEN CLS:SYSTEM ELSE GOSUB 123:GOTO 74 


157 
158 
159 
160 
161 
162 
163 
1654 
165 
166 
167 
1658 
169 
170 


REM 

REM 06d 6 0 

REM * DIRECTORIO + 

DAN 

REM 

CLS:LOCATE 1,1:PRINT N$;" DE LA UNIDAD "¡D%$;":" 
FILES D$+":x.*":¿PRINT:PRINT 

RETURN 

REM 

REM 06d dd 0 6 0 6 HH 

REM * PEDIR UNIDAD DE DISCOS +* 
E 

REM 

PSET(X,Y) ,P:M$=N$+" DE LA UNIDAD = "¿MA$="Z":MI$="A":LO=2:GOSUB 129: 1F LEN(D 


$)=2 THEN 170 ELSE IF D$="" THEN D$="A" 


171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 


RETURN 

REM 

REM 60060 

REM * INSTRUCCIONES + 

REM 0606 6 6 6 6 MI 

REM 

GOSUB 105:CLS:LOCATE 1,1:PRINT " COMANDOS DEL PROGRAMA SUPERGRAFICOS. " 
PRINT:+PRINT "<Q> ...... Finaliza sesion" 

PRINT "<P> ...... Dibuja un punto (PSET)" 

PRINT "<0> ....+.. Borra un punto (PRESET)" 
PRINT "<L> ...... Traza una linea (LINE)" 

PRINT "<X> ...... Visualiza coordenadas" 

PRINT "<M> ...... Graba pantalla (SAVE) " 

PRINT "<N> ...... Carga pantalla (LOAD) " 

PRINT "<K> ...... Graba pantalla en memoria" 
PRINT "<J> ...... Carga pantalla de memoria" 
PRINT "<ESC> .... Anula la ultima accion (DEL)" 
PRINT "<Z> ...... Borra la pantalla (CLS)” 


191 PRINT "<R> ...... Renombra un fichero (RENAME)" s 
192 PRINT "<S> ...... Varia la velocidad del cursor" 

193 PRINT “"<C> a0o..... Cambia color de tinta (COLOR) " 

194 PRINT "<F> ...... Colorea una zona (FILL)>" 

195-PRINT "<W> ...... Copia parte del dibujo (WIND) " 

196 PRINT "<?> ...... Muestra esta pantalla" 


PRINT "<B> ...... Borra un fichero (KILL)" 


PRINT "x<D> ...... Muestra el directorio (FILES)" 


PRINT "<2,4,6,8> Mueven el cursor" 
PRINT:PRINT "PULSA UNA TECLA"; :A$=INPUTS$ (1) : GOTO 


- 
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199 REM 

200 REM dde 6 MH 
201 REM * CREACION DE UNA VENTANA * 
202 REM mdd 0 6 dd MM MM E MIR 
203 REM 

204 A$=INKEY$: 1F A$="" THEN 204 

205 IF A$=CHR$(13) THEN GOTO 74 


IF MID*$(A$,2,1)="M" THEN PUT 


1F MID$(A$,2,1)="H" THEN PUT 


210 GOTO 204 
GET (X,Y)-(X+AX,Y+AY) ,EZ: PUT 


Al principio del programa, después de 
introducirlo y hacer RUN, el ordenador 
nos preguntará qué tipo de pantalla que- 
remos utilizar. Caben dos posibles opcio- 
nes: 


— 320 0 pantalla en color (4 colores). 
— 640 o pantalla monocromo (tinta y 
fondo). 


Elige la que quieras utilizar en cada mo- 
mento. La diferencia entre las dos, apar- 
te de la capacidad de color, es que con 
la primera tenemos 320 puntos de ancho 
y con la segunda 640. 


SIP I + 
ANA 


Un programa para realizar 

cualquier tipo de pantalla 

y cualquier grafico en tu 
IBM PC o COMPATIBLE 


(0 Ed. Siglo Cultural, 1986 


206 IF MID$(A$,2,1)="K" THEN PUT (X,Y) ,EZ,PSET: X=X-SS-SS* (X-SS<0) : GOTO 211 
(Xy Y) ¡EX ,PSET1 X=X+SS+59* (X+S5S>319*SW-AX) : GOTO 2 


(X, Y) ¡EZ , PSET: Y=Y-S5S-SS* (Y-S5<0):GOTO 211 
209 IF MID$(A$,2,1)="P" THEN PUT (X,Y),EY.,PSET: Y=Y+58+59* (Y+55>199-AY):GO0TO 211 


(X, Y) ,DZ,PSET: 


GOTO 204 


Las funciones que es capaz de realizar 
este programa se manejan con una sola 
mano, ya que todas las opciones posi- 
bles se pueden realizar con sólo pulsar 
una tecla. Estas son: 


P. Dibuja un punto en la posición ac- 
tual del cursor gráfico. 

O. Borra el punto sobre el que se en- 
cuentra el cursor gráfico (si lo hubiese). 

L. Traza una línea desde el último pun- 
to que se dibujó hasta la posición actual 
del cursor gráfico. Si el punto fuese un 
punto en el color del papel (borrar) la lí- 
nea será también del color del papel 
(borrará). 

X. Visualiza en pantalla las coordena- 
das actuales del cursor gráfico. 

M. Graba la pantalla en el disco. Des- 
pués de pulsar esta tecla, se le pregunta 
al usuario con qué nombre se va a gra- 
bar. Si el nombre no tiene extensión (BIN 
por ejemplo) el ordenador asignará dau- 
tomáticamente la extensión .BAS. 

N. Carga una pantalla que se en- 
cuentre en disco. Después de pulsar esta 
tecla se le pregunta al usuario el nombre 
de la pantalla a cargar. 

K. Este comando graba la pantalla en 
la memoria. Es un comando muy útil, pues 
nos permite hacer copias de seguridad 
de la pantalla sin tener que hacerlas en 
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el disco. Esto sirve para que, en el caso 
de borrar la pantalla por error, no perda- 
mos lo que hemos hecho. 

J. Recupera la pantalla que se alma- 
cenó en memoria con el comando K. 

ESCAPE. Anula la última acción reali- 
zada. Si hemos trazado una línea equivo- 
cadamente, pulsando la tecla ESCAPE la 
pantalla volverá a aparecer como esta- 
ba antes de trazar dicha línea. 

Z. Borra la pantalla. Antes de borrarla 
pide la confirmación del usuario. 

B. Borra un fichero del disco. También 
saca el directorio para que el usuario 
vea los ficheros que contiene el disco. 

D. Muestra el directorio. El programa 
pide la unidad de la cual se quiere co- 
nocer el directorio. 

R. Renombra un fichero. Antes de ha- 
cerlo saca el directorio de la unidad que 
se le especifique. 

S. Varía la velocidad con la que se 
mueve el cursor gráfico. Dicha velocidad 
se puede regular entre 1 y 9. 

F. Colorea una zona cerrada, como 
un círculo, rellenándola de color. 

C. Cambia el color de la tinta. El co- 
lor se puede variar entre 0 y 3 en el modo 
de 320, y entre 0 y 1 en el modo de 640. 

W. Nos permite copiar una parte de la 
pantalla a otro lugar de la misma. Para 
ello hace falta poner el cursor gráfico en 
la esquina superior izquierda del trozo a 
copiar y pulsar la letra W. Después nos 
movemos a la esquina inferior derecha y 
volvemos a pulsar la letra W. Una vez he- 
cho esto, el cursor desaparecerá y noso- 
tros podremos mover la zona elegida por 
la pantalla con las teclas del cursor. Una 
vez que esté donde nosotros queremos, 
pulsamos ENTER y el cursor volverá a apa- 
recer. 


Las teclas que mueven el cursor gráfi- 
co son las que se encuentran en el tecla- 
do numérico que están en la parte dere- 
cha del teclado. Estas teclas son: 


2 — Movimiento hacia abajo. 
8 — Movimiento hacia arriba. 
4 — Movimiento hacia la izquierda. 
6 — Movimiento hacia la derecha. 


Si en cualquier momento de la ejecu- 
ción del programa queremos ver todos 
los comandos de que dispone el SUPER- 
GRAFICS, sólo tenemos que pulsar el in- 


terrogante (?) para que aparezcan en 
pantalla. 


' Notas sobre el programa 4 


Para cargar las pantallas que realices, 
desde uno de tus programas, sólo tienes 
que poner las siguientes instrucciones: 


DEF SEG=8:HB800:BLOAD “nombre” 


COMANDOS DEL PROGRAMA SUPERGRAFICOS , 


1% Mets Finaliza sesion 0% 
(as Ja lo JO 
dl punto CPRESET) 


Traza una Pines (LINE) 
oorde: 


(530... Am ia 
datos e 
B) css cn a ichero (XILL) 
0D) ,..... Muestra el eipectario (FILES) 
mm. Renombra un fich e gio ; 
(5 11.1... Varia la velocidad de lares 
AGD pod color de tinta ( 

una zona (FILL) 


musa " TECLA 


[A Comandos del programa Supergráficos. 


'D Fichero de discos 


Este último programa, también para el 
SPECTRUM, nos permitirá tener almacena- 
da, de una forma cómoda y que no ocu- 
pa espacio, toda la información referen- 
te a nuestros libros. Con el programa po- 
dremos saber en cualquier momento 
quién escribió un cierto libro, qué edito- 
rial tiene en su catálogo un libro que nos 
interesa, en qué fecha lo compramos, 
etcétera. 


FICHERO DE LIBROS 


T$(100,50) 
AS (100,50) 
C+$(100,50) 
0$(100,50) 


35 PRINT — INVERSE 13 "========= 


S===2222=========2=====3======= Fl 


CHERO D E LIBROS  —============== 


Soros =====" 
40 PRINT AT 6,7; INVERSE 13" 1 
"3 INVERSE 03" FICHA NUEVA. "3 AT 


8,7; INVERSE 13" 2 ", INVERSE O 
¡" CARGAR FICHERO. "¿AT 10,73 INV 
ERSE 13" 3 "; INVERSE 03" SALVAR 

FICHERO. "¡AT 12,7; INVERSE 13" 
4 "; INVERSE 0;" LISTAR FICHEROS 
"¡AT 14,73 INVERSE 13" 5 "3 INV 
ERSE 03" BUSCAR UNA FICHA. "¿AT 1 
6,7; INVERSE 13" 6 "j INVERSE O; 
" BORRAR EL FICHERO." 

42 PRINT AT 21,13 INVERSE 13" 
OPCION = "; FLASH 13" "¿CHR$ 8; 

50 LET K$=INKEYS 

60 IF K$<"1" OR K$>"6" THEN 6 
DO TO 50 

65 PRINT  INVERSE 1¿k%$;" "¿ OV 
ER 13AT 4+2x*VAL K$,73" 

“: FOR I=1 TO 200: 

NEXT 1 

70 GO TO 1000*VAL Ks$ 
1000 CLS : PRINT  INVERSE 13" 

INTRODUCIR FICHA NUEVA " 
1001 PRINT  INVERSE 1; "========= 


1002 PRINT  INVERSE 11" FICH 
AS EN MEMORIA = "AT 2,25 
¡NF-1 


1005 INPUT "TITULO: "3 LINE TS$(N 
F) 


1006 PRINT *'”* INVERSE 15" TITUL 
LO.....oo.. "y INVERSE 03" "¿TS 
NF)> 

1010 INPUT "AUTOR: "3 LINE A$(NF 


) 

1015 PRINT ' INVERSE 13" AUTOR . 

rn. onooo.1 "y INVERSE 0" "¡AS$(NF 

) 

1020 INPUT "CLASIFICACION: "; LI 

NE CS$(NF) 

1025 PRINT ' INVERSE 13" CLASIFI 

CACION.1 "3 INVERSE 0," "¿C$(NF) 

1030 INPUT "EDITORIAL: "¿ LINE O 

$ (NF) 

1040 PRINT ' INVERSE 13" EDITORI 

Al.....2 "y INVERSE 03" "¿O$(NF) 

1050 LET NF=NF+1 

1400 PRINT hOj INVERSE 1;" INTRO 

DUCIR OTRA FICHA S/N "; 

1410 LET W$=INKEYS$ 

1420 IF W$="S" OR W$="s" THEN 6 

O TO 1000 

1430 IF W$<>"N" AND W$<>"n" THEN 
GO TO 1410 

1440 GO TO 30 

2000 GO SUB 2400 

2020 INPUT "CATALOGO ?(S/N)"3 LI 

NE B$ 

2030 IF B$="S" THEN CAT 1 

2040 GO SUB 2300 

2060 LOAD *"M"¡1¿N$+"A" DATA A$( 

) 

2061 LOAD *"M"z1¿N$+"T" DATA T*( 

) 

2062 LOAD *"M"¡1¿N$+"C" DATA C$( 

) 

2063 REM LOAD *"M";1¿N$+"0" DAT 

A 0$() 

2065 GO SUB 4400 

2070 60 TO 30 

2100 GO SUB 2300 

2110 LOAD N$+"A" DATA A$() 

2111 LOAD N$+"T" DATA T+$() 

2112 LOAD N$+"C" DATA C$() 

2113 LOAD N$+"0" DATA 0$() 

2115 GO SUB 4400 

2120 GO TO 30 

2300 INPUT "NOMBRE DEL FICHERO ? 

(MAX.9 C.)"3 LINE N$ 

2310 IF LEN N$>9 THEN GOD TO 204 

O 


2320 RETURN 

2400 INPUT "CASSETTE (C) O MICRO 
(M)"y LINE B$ 

2410 IF B$="C" THEN GO TO VAL k 

$r1E3+100 


2420 IF B$<>"M" THEN GO TO 2400 
2430 RETURN 

3000 GO SUB 2400 

3010 GO SUB 2300 

3020 SAVE *"M"31;¿N$+"A" DATA A*$( 
) 

3021 VERIFY *"M"31¿N$+"A" DATA A 
$0 

3022 SAVE *"M"z13N$+"T" DATA T+( 
) 

3023 VERIFY *"M"31¿N$+"T" DATA T 
$0 

3024 SAVE *"M"z1¿N$+"C" DATA C*( 
) a 
3025 VERIFY *"M"31¿N$+"C" DATA C 
$*() 

3026 REM SAVE *"M"31¿N+$+"0" DAT 
A 0$() 

3027 REM VERIFY *x"M";1;N$+"0" D 
ATA 05$() 

3030 GD TO 30 

3100 GO SUB 2300 

3110 SAVE N$+"A" DATA A$() 

3111 SAVE N$+"T" DATA T*$() 

3112 SAVE N$+"C" DATA C$() 

3120 GO TO 30 

4000 CLS 3 PRINT  INVERSE 1] "=== 


LISTAR FICHERO === 
A 

4001 PRINT- ***"IMFRIMIMOS DESDE 
LA FICHA "3: INPUT "NO. DE FICHA 


“3 N1 

4002 PRINT Ni 

4003 PRINT “'"HASTA LA FICHA "js 
INPUT "NO DE FICHA "¿N2 

4004 PRINT N2 

4005 IF (Ni<1 OR N1>NF-1) OR (N 

2<N1 OR NZ>NF-1) THEN GO TO 40 

00 

4006 PRINT 0; INVERSE 1;" PULSA 
UNA TECLA "y 

4009 FOR N=N1 TO N2 

4010 LET B$=A$(N) 

4020 60 SUB 4300 

4030 LET D$=B$ 

4040 LET B$=T*+(N) 

4050 GO SUB 4300 

4060 LET E$=B$ 

4070 LET B$=C$(N) 

4080 GO SUB 4300 

4090 LET F$=B$ 

4091 LET B$=0%$(N) 

4092 GO SUB 4300 

4093 LET G$=B$ 

4096 CLS 

4100 PRINT AT 0,03" FICHA "¿N;" 

MN 

4110 PRINT AT 9,03 INVERSE 1;"TI 

TULO 3 "3 INVERSE 0," "¡ES 

4120 PRINT AT 12,03 INVERSE 1;"A 

UTOR : "j INVERSE 0," "¿DS 

4130 PRINT AT 15,04 INVERSE 1;"C 

LASIFICACION : "3 INVERSE 07" "; 

FS 

4132 PRINT AT 18,0; INVERSE 1;"E 

DITORIAL "j INVERSE 07" "¿65 

4140 PRINT Oz FLASH 1;"PULSA UN 

A TECLA. Q PARA IMPRIMIR"; FLASH 
o 

4145 PAUSE O: IF INKEY$="0" THEN 
copy 

4150 NEXT N 

4160 PAUSE O 

4170 GD TOD 30 

4300 FOR A=1 TO LEN B$+1 

4310 IF B$(A)<>" " OR B$(A+1)<>" 
" OR BS(A+2)<>" " OR BS$(A+3)<>" 
" THEN NEXT A 

4320 LET B$=B$(1 TO A-1) 

4330 RETURN 

4400 FOR A=1 TO 100 

4410 IF A$(A,1)=" " THEN LET NF 

=A4: RETURN 


2 PROGRAMAS 


4420 NEXT A 
4430 RETURN 
5000 INPUT "TITULO QUE BUSCAS ?" 
y LINE 6$ 
5010 FOR B=1 TO NF-1 
5015 LET B$=T$(B) 
5016 GO SUB 4300 
5020 LET Ni=B: LET N2=B: GO TO 4 
009 
5030 NEXT BE 
5040 CLS 
5050 PRINT "TITULO NO PRESENTE E 
N-EL FICHERO" 
5060 PAUSE O 
5070 GO TO 30 
£000 INPUT "NUMERO DE FICHA ?"¿F 
£010 IF F>NF THEN CLS : PRINT A 
T 0,03"NO HAY TANTAS FICHAS.": P 
AUSE 0: GO TO 30 
6020 FOR A=F TO NF+1 
6030 LET A$(A)=A$(A+1) 
6040 LET T$(A)=T$(A+1) 

LET C$(A)=C$ (+1) 

NEXT A 

LET NF=NF 

GOD TO 30 


El número de fichas que puede acep- 
tar el programa es de 150. Si tenemos 
más libros no hay ningún problema. Los 
podemos agrupar por temas y crearnos 
un fichero distinto por cada tema. 

Este programa aparecerá en las versio- 
nes para los distintos ordenadores en to- 
mos sucesivos. 


FICHA NUEVA. 
CARGAR FICHERO. 
SALVAR FICHERO. 


LISTAR FICHEROS. 
BUSCAR UNA FICHA. 
BORRAR EL FICHERO. 


Menú del progama «Ficheros de libros». 


2 FICHA HUEUVA 


2 
El quijote 


Cervantes 


Ejemplo de ficha. 


D Ecualizador 


Este programa es una pequeña curiosi- 
dad para los usuarios del SPECTRUM. Con 
él podrán ver en la pantalla del ordena- 
dor cómo es la onda sonora de la voz hu- 
mana, de un ruido, de un instrumento, de 
una canción, etc. 


ECUALIZADOR 


1 REM +++re+r+rtrr+rtrr+ 
2 REM + ECUALIZADOR DE + 
3 REM + SONIDOS + 
4 REM +++ tr 
S REM + PORs aa 
6 REM + CARLOS CORAL + 
TO REM +44 rttttt++ 
8 REM 
9 GO SUB 100 

10 LET K$=INKEYS$ 

11 PRINT AT 10,93 INVERSE 1;"P 
ULSA UNA TECLA" 

12 IF K$="" THEN GO TO 10 

13 CLS : LET DIR=23300 

14 LET X=0 

15 PLOT X,87 

16 PLOT X+1,87 

17 LET Y=PEEK DIR 

18 IF Y>175 THEN LET Y=175 

19 PLOT X+1,87 

20 PLOT X,87 

21 LET A=Y-87 

22 LET B=87-Y 

23 DRAW 2,A 

24 DRAW 2,B 

25 LET L=USR 64000 

26 LET X=X+4 


IF X>=252 THEN CLS 2 LET X 


GO TO 17 
100 FOR F=64000 TO 64040 

101. READ A 

102 POKE F,A 

103 NEXT F 

104 RETURN 

105 REM 

110 DATA 175,50,4,91,6,8,62,117 
111 DATA 219,254,203,119,204,21 
1,250,196 

112 DATA 31,250,16,242,201,58,4 
191,203,135 

113 DATA 23,50,4,91,201,58,4,91 
,203,199 
114 DATA 23,50,4,91,201 


Lo único que tienes que hacer para 
que este programa funcione es, aparte 
de teclearlo y hacer RUN, meter una cin- 
ta grabada en el cassette que utilizas 
para leer y grabar programas y pulsar la 
tecla PLAY. En cuando comience a sonar 
la cinta veremos en la pantalla la onda 
de dicho sonido. 


Onda que realiza el programa 
Ecualizador cuando escucha en 


Rock and Roll. 


LUPA FAL 0 a] 


EA AA m "oÚ n 11 m 1100 m MAN 


[A Esta es la onda de la voz humana. 


E 
Notas al programa 6 


Para que el programa entienda bien la 
música, o lo que esté grabando en la cin- 
ta, no es necesario poner muy alto el vo- 
lumen. Es conveniente que éste se en- 
Ccuentre en la mitad de su recorrido. 


AS tablas de decisión 
constituyen un proce- 
dimiento simple y cla- 
ro de presentar las 
condiciones de pro- 
ceso en el tratamien- 
to de datos. Es normal 
que los diferentes 
procesos elementales puedan ser defini- 
dos individualmente, así como las condi- 
ciones bajo las que dichos procesos de- 
ben aplicarse. Una tabla de decisión es 
una matriz en la cual se intercalan estas 
condiciones que han de cumplirse para 
que se apliquen unos tratamientos dados 
y los tratamientos que han de aplicarse 
en cada caso. 

En una tabla de decisión aparecen 
cuatro partes claramente diferenciadas: 


2 SITUACIONES 


SECUENCIAS 
DE 
TRATAMIENTOS 


[A Estructura de una tabla de decisión. 


TECNICAS 
DE ANALISIS 


TABLAS DE DECISION 


1) Matriz de condiciones. 

En ella aparecen todas y cada una de 
las condiciones que intervienen en el 
proceso estudiado, al cual se refiere la 
tabla de decisión. 

Es importante que estas condiciones 
estén perfectamente definidas y sean in- 
dependientes una de otras (es decir, se 
puedan identificar sin interrelación con 
las restantes): la tabla de decisión, pre- 
cisamente, establecerá la relación de 
unas con otras y con los tratamientos a 
aplicar en cada caso. 


2) Matriz de tratamientos. 

Aparecen en esta sección de la tabla 
de decisión todos los diversos tratamien- 
tos que habrá que aplicar en las diferen- 
tes situaciones del proceso que se estu- 
dia. 

Cada uno de estos tratamientos repre- 
sentará un pequeño módulo de proceso 
dentro del pograma general en que se 
plasmará la tabla de decisión. 


3) Situaciones. 


Conjunto de posibles combinaciones 
de las condiciones descritas en la matriz 
de la izquierda de la tabla de decisión. 

En esta parte de la tabla se van ano- 
tando, por columnas, las condiciones 
que deben darse en cada una de las po- 
sibles situaciones. 


4) Secuencias de tratamientos. 

Combinaciones de los distintos trata- 
mientos a aplicar en función de las situa- 
ciones diferentes que aparecen en la 
parte tercera de la tabla. 

Para cada situación se reseña, en la 


misma columna, el conjunto de los trata- 
mientos a aplicar a los datos en esa situa- 
ción. 


Situaciones 


Condición 1 
Condición 2 
Condic. 
caso A 
Condic. 
caso B 
Condic. 
caso € 
Condición 4 


Condición m 


Tratamiento 1 
Tratamiento 2 
Tratamiento 3 
(ir a tabla B) 


IG AAA NO ¿UR 
XXX|Z Zo vn nn nu 
JOAN ID A. A ZA 


Tratamiento m 


[A Un ejemplo de tabla de decisión. 


De acuerdo con lo anterior, se puede 
ver en la figura 2 un ejemplo de tabla de 
decisión: la primera situación se produci- 
rá cuando SI se cumple la condición 1, 
pero NO la 2; de la condición 3, Sl se 
cumple el caso A pero NO los casos B y 
C, etc. La prolongación hacia abajo de 
esa columna (correspondiente a la situa- 
ción 1.*) nos indica que en este caso se 
debe aplicar el tratamiento 1 y el trata- 
miento 3 (que conduce, a su vez, a otros 
procesos o tratamientos descritos en otra 
tabla de decisión: la tabla B). Del mismo 
modo, la situación segunda (caso en que 
SI se cumplen las condiciones 3-caso A, 
4,...m; y no se cumplen las restantes con- 
diciones) exige que se apliquen los tra- 
tamientos 1, 2,... m. 

Existen tablas de tipo «ampliado»: 
cuando las condiciones presentan más 
de dos alternativas o conjunto de valo- 
res. En contraposición a ellas, cuando en 
una tabla de decisión todas las condicio- 
nes son simples, la tabla se suele llamar 
«limitada». La tabla presentada en la fi- 
gura 2 es del tipo «mixto», pues aparecen 
en ella condiciones simples y una condi- 
ción (la tercera) con varias alternativas. 
A veces, las tablas de decisión amplia- 
das o mixtas presentan en una sola con- 
dición las diferentes opciones que se 
pueden dar; en ese caso se pueden con- 


vertir (como se ha hecho en la tabla de 
la figura 2) a tablas con condiciones sim- 
ples desglosando en varias la condición 
múltiple. 

Por otro lado, se suelen distinguir tam- 
bién, en las tablas de decisión, aquéllas 
que son completas en sí mismas (tablas 
«Cerradas») de las que (como el ejemplo 
presentado) remiten, en algunos de los 
tratamientos propuestos, a la consulta de 
otra u otras tablas adicionales: estas ta- 
blas se suelen llamar «abiertas» o «re- 
currentes». 

Otro aspecto a tener en cuenta es el 
tipo de reglas de decisión que se inclu- 
ye en la tabla. Pueden ser de tipo AND, 
OR, ELSE o múltiples. La regla AND signifi- 
ca que han de darse todas las condicio- 
nes indicadas en la columna correspon- 
diente de la matriz de situaciones, para 
que se ejecuten los tratamientos marca- 
dos en la parte inferior de la columna: 
como se está afirmando que ha de cum- 
plirse la condición «i» Y la condición «j» 
Y la condición «K» Y... se designa este 
tipo de regla con el nombre inglés del 
operador lógico correspondiente (AND). 

En el ejemplo propuesto en la figura 2 
hemos considerado que las reglas de de- 
cisión (columnas de la matriz de situacio- 
nes) son de tipo AND. 

En las reglas de tipo OR se supone que 
se produce la situación descrita en la 
correspondiente columna (y que se de- 
ben aplicar, en consecuencia, los trata- 
mientos indicados) si se cumple la con- 
dición «i» O la condición «j» O la condi- 
ción «k» O etc.: es decir, se «disparará» 
la correspondiente regla si se cumplen 
una o más de las condiciones marcadas. 

La regla de tipo ELSE se llama así en re- 
lación con la instrucción (común a varios 
lenguajes de programación) IF... ELSE... 
(SI... EN-OTRO-CASO...; SI sucede una con- 
dición, hacer esto; EN-OTRO-CASO hacer 
tal otra cosa); aparece este tipo de re- 
gla de decisión cuando sólo algunas de 
las posibles situaciones nos conducen a 
tratamientos especializados, mientras 
que todo el resto de las situaciones pro- 
ducen un tratamiento concreto (único 
para todas las restantes); en este caso, 
se detallan las situaciones que condu- 
cen a tratamientos específicos y el resto 
de las posibilidades se agrupan en una 
única regla de decisión (que se llama re- 
gla ELSE). 


RADICIONALMENTE se 
ha considerado que 
un programa de or- 
denador bien cons- 
truido debe constar 
de dos partes clara- 
mente diferenciadas: 
por un lado, las ins- 
trucciones de que consta el programa; 
por otro, los datos sobre los que éstas ac- 
túan. A su vez, las instrucciones se divi- 
den en cuatro grupos principales: 


+ Asignación a una variable del valor 
de una expresión. 

e Estructuras de control, que permiten 
dirigir la ejecución del programa por los 
pasos necesarios para realizar la tarea 
propuesta. 

e Instucciones de modularización, 
que descomponen un programa com- 
plejo en partes más pequeñas, cerradas 
en sí mismas y más fácilmente compren- 
sibles, lo que facilita la construcción, 
mantenimiento y legibilidad de los pro- 
gramas obtenidos. 

e Instucciones de acceso a los dis- 
positivos periféricos (entrada/salida), 
que permiten que nuestro programa pue- 
da utilizar adecuadamente la pantalla, 
los ficheros en disco, la impresora, los 
gráficos y muchos otros dispositivos. 


Pero un pograma sin datos no serviría 
para nada. Porque, en definitiva, ¿qué es 
un programa, sino un medio que, a partir 
de ciertos datos iniciales, nos permite 
calcular ciertos resultados que deseáúba- 
mos conocer? Esta definición se aplica 


TECNICAS 
DE PROGRAMACIÓN 


ESTRUCTURAS DE DATOS 


incluso a programas que aparentemente 
no calculan ningún dato concreto. Como 
ejemplo, pensemos en el control por or- 
denador de una máquina que ha de rea- 
lizar un trabajo determinado: la fabrica- 
ción de un tornillo o el ensamblaje de 
dos piezas en una cadena de montaje. 
Ante la mirada del observador casual, el 
programa que controla la máquina no 
parece estar calculando resultados de 
ningún tipo, pues se limita a regular la ac- 
ción de la máquina y a dirigir sus meca- 
nismos. Sin embargo, en realidad existe 
un considerable flujo de información, de 
datos, que van introduciéndose en la 
máquina por diversos medios y convir- 
tiéndose en otros a través de cálculos 
más o menos complejos. Antes de poder 
mover el brazo de un robot que debe co- 
locar cierta pieza en el lugar deseado, el 
programa debe poseer información so- 
bre la posición actual de la pieza, el lu- 
gar exacto a donde debe llevarla y la lo- 
calización de las distintas partes del bra- 
zo mecánico. Estos datos, que puede 
conseguir por medio de sensores visua- 
les o táctiles, serán elaborados para ob- 
tener otros, que definen con todo deta- 
lle cada uno de los movimientos elemen- 
tales que habrán de realizarse. Los resul- 
tados del cálculo son, también en este 
caso, datos, aunque no podamos verlos 
explicitos sobre el papel de una impre- 
sora. 

Veamos un ejemplo. En el capítulo pri- 
mero vimos un algoritmo que nos permi- 
tía convertir a la base 2 un número ente- 
ro cualquiera expresado en la base diez. 


Repitamos aquí el algoritmo, en forma de 
organigrama: 


Ahora vamos a ver cómo se construiría 
un programa que realice este algoritmo 
en el lenguaje BASIC. 


10 DIM R(10) 
20 FOR I=1 TO 10: LET R(1)=0: NEXT I 
30 PRINT "dame un número entre 
O y 1000" 
40 INPUT X 
50 FOR I=1 TO 10 
60 LET C=INT(X/2) 
70 LET R(1)=X-2xC 


80 IF C=0 THEN GOTO 110 
90 LET X=C 
100 NEXT I 
110 FOR I=i TO 10: PRINT R(11-1);: 


Comparando el programa con el orga- 
nigrama, podemos descubrir la siguiente 
correspondencia entre los bloques y las 
instrucciones: 


En cuanto a las líneas 10 y 20 del progra- 
ma, definen la variable R, donde se guar- 
dará la sucesión de restos (es decir, las 
cifras en base 2) y asignan un valor ini- 
cial de cero a cada uno de los diez luga- 
res que tiene previstos para las cifras del 
resultado. 

Obsérvese también que, en la instruc- 
ción 110, los valores de los restos se im- 
primen en orden inverso, como es preci- 
so hacer para que las cifras del numero 
convertido a la base 2 aparezcan en el 
orden correcto. 

Siempre es difícil, en los programas es- 
critos en BASIC, distinguir claramente en- 
tre las instrucciones y los datos, pues este 
lenguaje es muy poco estructurado. En 
particular, la regla que permite utilizar 
una variable sin haberla definido previa- 
mente facilita que los datos queden es- 
parcidos a lo largo y a lo ancho de los 
programas y mezclados íntimamente 
con las instrucciones ejecutables. 


E TÉCNICAS DE PROGRAMACIÓN 


En el caso del programa 1, los datos 


son los siguientes: 


e La variable X, donde se guarda ini- 
cialmente el valor en base 10 que se de- 
sea convertir a la base 2, aunque a lo lar- 
go del programa este valor va siendo sus- 
tituido por los cocientes sucesivos, de 
acuerdo con el algoritmo. 


e La varible C, donde se guarda el va- 
lor del cociente entero de X al dividirlo 
entre 2. 


e La variable R, que no es como las an- 
teriores, que tienen un solo valor, sino 
que puede considerarse como un agre- 
gado de diez valores diferentes, donde 
van a guardarse los restos sucesivos que 
vayamos obteniendo. Esto se debe a que 
no debemos perder estos restos, puesto 
que entre todos constituyen el resultado 
del programa. Podemos representar los 
diez valores distintos de la variable R con 
los símbolos R(1), R(2), R(3), R(4), R(S), 
R(6), R(7), R(8), R(9) y RC10). 


e La variable |, que actúa como conta- 
dor de los tres bucles de que consta el 
programa. Sólo uno de estos bucles (el 
central) aparece en el organigrama. Los 
otros dos, el de inicialización de los diez 
valores de R (instrucción 20) y el de es- 
critura de los mismos (instrucción 110), 
están implícitos. 


Puede verse que sólo la variable R está 
claramente separada de la parte ejecu- 
table del programa. Esto se debe a que, 
tratándose de una variable especial (un 
agregado de datos), debe definírsela ex- 
pliícitamente como tal. La instrucción 10 
tiene por objeto, precisamente, comuni- 
carle este hecho al intérprete de BASIC, 
es decir, pedirle que le dé un tratamien- 
to diferente al de las restantes variables 
DIMR(10) significa, pues, que Res una va- 
riable de «dimensión» 10, es decir, un 
agregado de diez valores. 


El lenguaje BASIC permite colocar las 
instrucciones DIM en cualquier parte del 
programa, siempre que sea antes de la 
primera utilización de las variables 
correspondientes. Sin embargo, no es 
una buena técnica de programacion 
aprovecharse de esto para distribuir ale- 
gremente las instrucciones DIM por diver- 


sos lugares de nuestros programas, pues 
esto tiende a hacerlos menos legibles, lo 
que dificulta su comprensión posterior 
por otras personas, o incluso por nosotros 
mismos. Lo recomendable es colocar to- 
das las instrucciones DIM al principio del 
programa, de manera que sea muy fácil 
ver, de una sola ojeada, cuáles son las 
variables que actuan como agregados 
de datos. Tan sólo existe una excepción 
a esta regla de buen programar, que se 
verá cuando hablemos de la modulariza- 
ción de los programas. 


Las instrucciones del tipo de la línea 
10, que no realizan ejecución alguna, 
sino que sólo siven para definir la estruc- 
tura de ciertos datos que van a ser utili- 
zados posteriormente por un programa, 
se llaman «instrucciones declarativas». 


Las variables que podríamos llamar 
«normales» (que tienen un solo valor), 
como |, X y C en el ejemplo anterior, no 
es preciso definirlas, por lo que aparece- 
rán por primera vez en nuestros progra- 
mas BASIC cuando tengamos que hacer 
uso de ellas, y no antes. En este caso con- 
creto es fácil localizarlas, pues el progra- 
ma es corto. Así vemos que | aparece por 
primera vez en la línea 20, X en la 40 y C 
en la 60. Pero es fácil comprender que, 
si el programa BASIC es largo y comple- 
jo, será mucho más difícil separar los da- 
tos de las instrucciones. 


Si el programa anterior hubiera sido es- 
crito en lenguaje PASCAL, no sería tan di- 
fícil distinguir las dos partes principales 
de todo programa: datos e instrucciones. 
En efecto: en PASCAL, todo programa 
debe comenzar por un conjunto de ins- 
trucciones declarativas, donde deben 
definirse todas y cada una de las varia- 
bles que van a tomar parte en el progra- 
ma, y que deben estar situadas al princi- 
pio, antes de las instrucciones ejecuta- 
bles. Esta es una de las razones por las 
que PASCAL se considera un lenguaje 
mucho más estructurado que BASIC, aun- 
que hay otras, que iremos viendo poste- 
riormente. 


Veamos cómo se escribiría el mismo 
programa (a partir del mismo organigra- 
ma) en el lenguaje PASCAL. 


Se puede ver cómo al principio de este 
programa aparecen, encabezadas por 


var 
Xs» iz integer; 
r:z array[1..10] of integer; 


begin 
writeln(*Dame un número entre O y 
1000”); readln(x); 
for iz=1 to 10 do 


begin 
rlili= x mod 2; 
xi=x div 2; 
end; 
for iz=1 to 10 do write(r[C11-i1); 


end. 


la palabra reservada «var», las declara- 
ciones de todas las variables que utiliza: 
x, donde se guarda el número decimal 
entero que vamos a convertir a la base 
2; |, que sirve como contador; y r, que es 
un agregado de diez valores, donde ire- 
mos colocando los restos sucesivos. En 
este caso no hemos inicializado los res- 
tos a cero, nitampoco hemos abandona- 
do el cálculo tan pronto se obtuvo el co- 
ciente cero, sino que continuamos calcu- 
lando restos hasta que el contador del 
bucle (la variable ¡) alcanza el valor 10. 
Sin embargo, el resultado es totalmente 
equivalente al del programa anterior, 
pues todos los restos adicionales que ob- 
tendremos serán siempre iguales a cero. 
Debido a estas pequeñas modificacio- 
nes, el organigrama correspondiente a 
este programa no es exactamente igual 
al de la figura 1, sino que corresponde al 
de la figura 2. 


Por último, puede ocurrir, como en el 
caso de un lenguaje de quinta genera- 
ción como el APL, que la potencia del 
lenguaje sea tan grande que un organi- 
grama relativamente detallado como el 
anterior resulte innecesario, pues es po- 
sible resolver el problema de la conver- 
sión de números de la base 10 a la base 
2 en una sola instrucción ejecutable. En 
este caso, tampoco será necesario se- 
parar las instrucciones de los datos, pues 
el programa es tan reducido que la se- 
paración es obvia, y no precisa estructu- 
ración alguna. Veamos, por consiguien- 
te, en el programa 3, cuál es esa instruc- 


ción APL que resuelve el problema de la 
conversión numérica, junto con un par de 
ejemplos de su utilización: 


(10p2)10 


127 
: E E E E 2: ME 


(10p2)10 


23 
000500. "010,1 HE 
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En este programa no existe ningún 
nombre de variable, pues no es necesa- 
rio. El número decimal que deseamos 
convertir a la base 2 se introduce direc- 
tamente desde el teclado (el símbolo 
cuadrado, en APL, significa que quere- 
mos obtener datos del teclado, y equiva- 
le hasta cierto punto a la instrucción IN- 
PUT de BASIC) y se convierte a la base de- 
seada en una sola operación, represen- 
tada por el símbolo semejante a una T 
pequeña. En cuanto a los datos incluidos 
entre paréntesis a la izquierda de este 
símbolo, el 2 indica la base de numera- 
ción a la que se desea convertir y el 10 
es el número de cifras que deseamos ob- 
tener del número binaria resultante. 

Como es lógico, el organigrama co- 


rreespondiente a este programa no es 
tampoco el de la figura 1, sino mucho 
más sencillo. Veámoslo en la figura 3. 

Para terminar, hay que añadir que 
cualquiera de los programas anteriores 
puede transformarse fácilmente en otro 
que realice la conversión de la base 10 
a otra base calquiera distinta de la base 
2. Para ello, en el caso de la versión BA- 
SIC, bastará cambiar el 2 que aparece 
en las líneas 60 y 70 por la base de que 
se trate. Lo mismo ocurre con el progra- 
ma PASCAL, donde también aparece la 
base 2 dos veces, en dos instrucciones 
consecutivas. En el caso del programa 
APL, también hay que sustituir el 2 inclui- 
do entre paréntesis por la base de nume- 
ración deseada. 


PASCAL 


EAMOS el siguiente 
programa. 


program Calculador; 


begin 
writein (“El número “,5, 
“al cuadrado vale * ,5*5); 
writein (“El número “,5, 
“al cubo vale “,5*5"5) 
end. 


Como veremos más adelante con ma- 
yor detalle, la instrucción «writeln» sirve 
para sacar por pantalla las frases, núme- 
ros y resultados de operaciones matemá- 
ticas que aparecen entre paréntesis justo 
detrás de ella. Por tanto, en la pantalla 
aparecerá algo así: 


El número 5 al cuadrado vale 25. 
El número 5 al cuadrado vale 125. 


Si ahora quisiéramos cambiar el pro- 
grama para que hiciese los cálculos con, 
por ejemplo, 6 en lugar de 5, tendríamos 
que sustituir todos los cincos que apare- 


DEFINICION DE DATOS EN UN 
PROGRAMA PASCAL 


cen en el programa por seises. Si el pro- 
grama fuese largo, esto podría llegar a 
ser muy tedioso. 


m Constantes numéricas 


En PASCAL es posible asociar nombres 
(identificadores) a los números que van 
a ser constantes a lo largo del programa. 
Este nombre será luego el que se emplee 
en lugar del número. La asociación se 
hace en la zona de descripción de datos 
(es decir, tras la cabecera del progra- 
ma); silo empleamos en el programa an- 
terior: 


program Calculador; 
const Nu = 5; 


begin 
writeln (“El número “,5, 
“al cuadrado vale * »Nu*Nu); 
writeln (“El número “,5, 
“al cubo vale * ¡Nu"Nu*Nu) 
end. 


se PASCAL 


Este programa es totalmente equiva- 
lente al primero, pero hemos utilizado lo 
que se denomina «declaración de cons- 
tantes». 

Gracias a esto, cada vez que aparez- 
ca la palabra Nu en alguna parte del pro- 
grama, será como si realmente hubiése- 
mos puesto un cinco. 

Si ahora quisiéramos que el programa 
funcionase con un seis, bastaría con re- 
tocar el sitio donde hemos dicho que Nu 
equivale a 5, es decir, pondríamos: 


const Nu = 6; 


La declaración de constantes siempre 
va precedida por la palabra reservada 
CONST y sirve para indicar al compilador 
que todo lo que venga a continuación, 
hasta que aparezca otra palabra reser- 
vada (que en este caso es BEGIN), son de- 
finiciones de constantes. Tras CONST se 
escribe el nombre a utilizar, un signo 
igual y el valor que queremos asociar al 
nombre. Al final de la zona de declara- 
ción de constantes siempre va un punto 
y coma (que, como iremos viendo, es lo 
que se utiliza más a menudo para sepa- 
rar cosas en PASCAL). 

Podemos declarar todas las constantes 
que queramos sin más que poner sus de- 
finiciones una detrás de otra separadas 
entre sí por punto y coma: 


const Juan = -15; Luls = 1234; 
Ene = -347; 


Quedaría más claro así: 


const 
Juan = -15; 
Luis = 1234; 
Ene = -347; 


De esta forma, cada vez que en el pro- 
grama aparezca Juan será como si hu- 
biésemos puesto -15, y análogamente 
con los otros. 


Ol Textos 


En el programa hay también textos o 
frases. En PASCAL las frases se escriben 
siempre entre apóstrofos como en «El nú- 
mero» o «al cubo vale». Dentro de una fra- 
se pueden ponerse letras, cifras, símbo- 


los, espacios en blanco, etc., con total li- 
bertad; el compilador la toma tal como 
es, sin intentar analizar lo que contiene: 


“Pone const y no pasa nada” 


Para que aparezca un apóstrofe en 
medio de una frase sin que el compila- 
dor se crea que es el que marca el final, 
se pone por duplicado: 


“Esta frase tlene un ' en medio' 


Para que aparezca un apóstrofo en 
talla sólo aparecerá un apóstrofo. 

Al igual que con los números constan- 
tes, podemos asociar un identificador a 
una frase. Es simplemente otro tipo de 
constante y por ello se declara de mane- 
ra análoga: 


program Calculador; 


cost 
Nu = 5; 
Fr = “El número ”; 


begin 
writeln (Fr,Nu, 

“al cuadrado vale”, Nu"Nu); 
writeln (Fr,Nu, 

“al cubo vale”, Nu"Nu*"NuNu) 
/ end. 


Así, cada vez que aparece Fr es como si 
hubiésemos puesto realmente la frase. 

Las frases son distintas de los números. 
Estos se guardan en la memoria del orde- 
nador usando unos códigos especiales 
para ello. Sin embargo, si declaramos la 
constante C = '-54', ésta se guarda con 
un código para el signo menos, otro para 
la cifra 5 y otro para la cifra 4. C no se 
puede emplear para cálculos matemáti- 
cos; es sólo una frase que casualmente 
tiene aspecto de número. 


O Variables 


Si los programas sólo pudieran trabajar 
con datos que son siempre los mismos, 


servirían para bastante poco. En PASCAL, 
como es lógico, se pueden tener datos 
variables, pero hay que declararlos al 
principio del programa. 

Los datos variables se guardan en por- 
ciones de la memoria del ordenador, 
siendo estas porciones de mayor o me- 
nor tamaño según el tipo de dato que 
tengan que alojar. 

La declaración de variables sirve fun- 
damentalmente para que: 


1. El compilador reserve las porciones 
de memoria necesarias y del tamaño 
adecuado. 

2. Asociar a cada porción un nombre 
para así poder utilizar el dato que guar- 
de llamándole por ese nombre. 


La zona de declaración de variables se 
encuentra justo tras la de las constantes 
(caso de existir ésta) y antes de la zona 
de instrucciones. Por tanto, la estructura 
de un programa queda de la siguiente 
manera: 


program NombreDelPrograma; 


Declaración de 
constantes 


Declaración de 
variables 


begin 


Zona de instrucciones 


end. 


El comienzo de la zona de definición 
de variables se indica con la palabra re- 
servada VAR, tras la que se escriben todas 
las definiciones que se necesiten separa- 
das entre sí por punto y coma. Cada de- 
finición consta del nombre de la variable 
seguido de dos puntos y de la descrip- 


ción del tipo de variable a que corres- 
ponde. Veamos un ejemplo: 


var 
Edad : integer; 
Peso : integer; 


Inicial : char; 


Cuando dos o más variables son del mis- 
mo tipo, se puede indicar de manera re- 
sumida poniendo sus nombres uno a con- 
tinuación de otro y separados por co- 
mas: 


var 
Edad, Peso : integer; 
Inicial : char; 


INTEGER y CHAR son dos tipos de datos 
predefinidos que sirven, respectivamen- 
te, para guardar números enteros y ca- 
racteres (es decir, textos de un solo ca- 
rácter). 

Por tanto, estaríamos indicando al 
compilador que queremos tener dos va- 
riables de nombre «Edad» y «Peso» para 
guardar números enteros y otra de nom- 
bre «Inicial» para guardar caracteres. 

En PASCAL existen muchos tipos de da- 
tos además de INTEGER y CHAR, e incluso 
es posible inventar nuevos tipos. Una re- 
gla de oro del PASCAL es la siguiente: 


Nunca se pueden mezclar entre si 
tipos distintos de datos 


El compilador, al traducir nuestro pro- 
grama, vigila que no intentemos guardar, 
por ejemplo, un número entero en una 
variable de tipo CHAR, y avisa en su caso 
de la presencia de un error. 


Otra posibilidad muy interesante es la 
de limitar los valores que pueda tomar 
una variable. Así, si intentáramos guardar 
un valor fuera de los límites establecidos, 
se produciría un error. Para hacer esto, 
en lugar del nombre del tipo se escriben 
el valor límite inferior y el superior sepa- 
rados entre sí por un par de puntos: 


var 
Edad :0..110; 
Peso :0..200; 
Inicial : 'A?..*Z”; 


De esta manera, Edad sólo podría 
guardar números entre 0 y 110 e Inicial 
sólo letras de la A a la Z. 


“o PASCAL 


Por supuesto, podriamos utilizar cons- 
tantes declaradas previamente para de- 
finir los limites: 


const 
EdadMaxima = 110; 
PesoMaximo = 120; 


var 
Edad : 0..EdadMaxima; 
Peso :0..PesoMaximo; 


Inicial : *A”..*Z”; 


NOTA: No con todos los compiladores 
se produce siempre el control de límites; 
a menudo es opcional. Por otra parte, a 
veces se consigue una disminución de la 
cantidad de memoria necesaria para 
una variable al limitar sus valores. 


' Instrucciones de programa 


Una vez que tenemos declaradas las 
constantes y variables que vamos a utili- 
zar, hay que indicar qué es lo que que- 
remos hacer, y eso se consigue por me- 
dio de instrucciones que se escriben una 
detrás de otra, separadas entre sí por 
punto y coma, tras la zona de declara- 
ción de datos y entre las palabras reser- 
vadas BEGIN y END (con punto final, no lo 
olvidemos). 

Hay dos tipos básicos de instrucciones: 


— Las que hacen algo con los datos: 
leerlos de teclado, sacarlos por la pan- 
talla o impresora, generar nuevos datos 
a partir de otros, etc. 

— Las que sirven para regular cuáles, 
cuándo y cuántas veces ejecutar las ins- 
trucciones del grupo anterior. 


Vamos a empezar por las instrucciones 
que sirven para mostrar datos. 


O Instrucciones de salida 


Si quisiésemos mostrar por la pantalla 
el numero -17, como internamente se 


guarda en la memoria usando un código 
especial, lo primero que tendríamos que 
hacer es deducir qué caracteres son los 
que hay que mostrar para que nosotros 
nos enteremos (un signo menos, un uno y 
un siete); a continuación habría que ma- 
nejar la parte del ordenador encargada 
del control de la pantalla para que los 
presentase. 

Afortunadamente, en PASCAL existen 
unos «procedimientos» o conjuntos de 
instrucciones ya preparados que hacen 
todo esto, de manera que no hay que 
preocuparse de esas cuestiones y basta 
con utilizar el nombre del procedimiento. 

Uno que ya conocemos es WRITELN. 
Para utilzarlo, se escribe su nombre segui- 
do de la lista de las diferentes cosas que 
queremos que aparezcan, separadas 
entre sí por comas; la lista debe ir entre 


paréntesis: 


program Escritor; 
const Ene = -17; 


begin 


writeln ("Esto es una frase.”, 
Ene, '/Esto es otra. *,2"Ene) 


end. 


Este programa sacará por la pantalla: 


Esto es una frase. -17/ Esto es otra. -34 


En general, el tipo de cosas que se 
pueden mostrar son: 


— Constantes numéricas o textos: 
writeln (14, 'Avión') 


— Constantes declaradas: 
writeln (Ene) 


— El valor de una variable: 
writeln (Peso) 


— El resultado de cálculos matemáti- 
cos: writeln (2 * Ene) 


L lenguaje de progra- 
mación C fue de- 
sarrollado por Dennis 
Ritchie, de los Labo- 
ratorios Bell, en la dé- 
cada de los setenta, 
cuando trabajaba, 
junto con Ken Thomp- 
son, en el diseño del sistema operativo 
UNIX. 

El UNIX surgió por la necesidad de dis- 
poner de un sistema operativo potente 
que pudiese funcionar en pequeños or- 
denadores de propósito general. Esto dio 
lugar a que Ken Thompson desarrollara 
una primera versión de un pequeño siste- 
ma operativo, al que denominó UNIX, es- 
crito en lenguaje ensamblador, siendo 
revisado posteriormente esta primera 
versión en un nuevo lenguaje de progra- 
mación «lenguaje B», desarrollado a su 
vez por Ken Thompson. 

El lenguaje B fue ampliado por Dennis 
Ritchie, el cual obtuvo una nueva versión 
a la que llamó «lenguaje C». 

El momento actual del hardware, con 
el desarrollo de microordenadores de 
16 bits que poseen la misma potencia 
que los miniordenadores de hace unos 
años, ha favorecido el uso del sistema 
operativo UNIX y el lenguaje C. 

El lenguaje C se está transformando a 
pasos gigantescos en una de las bases 
de programación más importantes y po- 
pulares. 


A 


lA C ha adquirido una amplia difusión. 


HISTORIA 
DEL LENGUAJE C 


Características 
fundamentales de C 


El C es hoy día el lenguaje por excelen- 
cia de los miniordenadores que trabajan 
bajo el sistema operativo UNIX. 

Pero no solamente se trabaja.con C en 
miniordenadores y grandes sistemas. Ac- 
tualmente se dispone en el mercado de 
compiladores del lenguaje C para orde- 
nadores personales. 


[A C puede utilizarse en ordenadores personales. 


C es un lenguaje de programación de 
propósito general que produce «progra- 
mas compactos» y «eficientes». 


[A Los programas escritos en C ocupan menos es- 
pacio. 


El diseño de programas en C puede lle- 
varse a cabo bajo técnicas de programa- 
ción estructurada (diseño “topdown”) 


“ HISTORIA DEL LENGUAJE C 


[A C posee las estructuras básicas de la programa- 
ción estructurada. 


incorporando estructuras de control bá- 
sicas como DO, UNTIL, WHILE, SWITCH e IF- 
THEN-ELSE. Los aficionados a la programa- 
ción reconocerán este tipo de estructu- 
ras comunes, en gran medida, a otros 
lenguajes tales como el Pascal. 


[A C es fácil de aprender. 

C permite crear programas fáciles de 
modificar y de adaptar a nuevos ordena- 
dores. Su «portabilidad» le hace el len- 
guaje idóneo para que programas en C 


escritos en un sistema puedan ejecutar- 
se en otros con modificaciones minimas. 


[A C es portátil. 


Hoy día existen compiladores C para 
unos 40 sistemas, abarcando desde mi- 
croprocesadores de 8 bits hasta el su- 
perrápido Cray1. 


Otra característica a resaltar del C es 
su «potencia» y «flexibilidad». El sistema 
operativo UNIX esta escrito, en su mayor 
parte, en lenguaje C. También existen 
cantidad de compiladores en el merca- 
do desarrollados bajo C , entre los que 
podríamos mencionar Pascal, Lisp, Logo, 
Basic, etc. 


[A C es potente. 


iria 
[A C es flexible. 
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[A El sistema operativo UNIX está escrito en C. 


Para los estudiosos de los diferentes 
lenguajes de programación diremos que 
C posee ciertas estructuras afines al Pas- 
cal, la sencillez del Basic y en ciertos as- 
pectos llega a niveles tan bajos de la má- 
quina que podemos decir que estamos 
trabajando con ensamblador (¡casi 
nada!). 

En resumen, las características princi- 
pales a destacar del lenguaje C son: 


— Producir programas reducidos (có- 
digo compacto). 

— Producir programas eficientes. 

— Ser un lenguaje portátil, potente y 
flexible. 


— Servir de base para el desarrollo de 
compiladores de otros lenguajes de pro- 
gramación. 

— Aprovechar las ventajas de la pro- 
gramación estructurada. 

— Ser de gran utilidad para estudian- 
tes y profesionales. 

— La instalación es económica. 

— Herramienta óptima para el diseño. 

— Utilización en áreas tan extensas 
como los paquetes software, la gestión, 
los minis y microordenadores y los jue- 
gos, entre otros. 


G 


Algunas características de C. 
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C se utiliza para paquetes Sotfware y juegos. 


SE UTILIZA 


PARA 


[4 Utilización de C. 


'O La escritura de programas 
en C y su compilación 


Los lenguajes de programación, en ge- 
neral, están basados en lenguajes “intér- 
pretes” y lenguajes “compilados”. Entre 
los primeros podemos citar el LOGO y el 
BASIC, perteneciendo al segundo grupo 
de los llamados compilados lenguajes 
tales como el FORTRAN, PASCAL y C. 

La primera fase para escribir un progra- 
ma en C es disponer de un editor de pro- 
pósito general, ya que el C no dispone 
de uno propio, para empezar a escribir 
su programa. Su ordenador dispondrá de 
un editor para realizar esta tarea. Si pre- 
fiere utilizar un editor distinto del que dis- 
pone su sistema, puede recurrir a proce- 
sadores de texto tan conocidos como el 
Wordstar utilizando la opción N (opción 
de “no documento”). Una vez escrito su 
programa, debe darle un nombre recor- 
dando que debe terminar con e, como, 
por ejemplo: 

prog.c 
hola.c 


En un sistema UNIX el editor podría ser 
invocado tecleando ed, ex, edit, emacs, 
o vi. Los ordenadores personales dispo- 
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nen de editores tales como edlin, ed, 
Wolkswriter, etc. 

Una vez escrito su programa, éste debe 
compilarse por medio del compilador de 
C, cuya misión es detectar si su progra- 
ma posee algún error y, en caso de no 
existir ninguno, traducirlo al lenguaje que 
entiende la máquina, es decir, el código 
objeto. La traducción de su programa lo 
colocará en un nuevo fichero. Bastará in- 
vocar el nombre de este último fichero 
para que nuestro programa se ejecute. 

Veamos un ejemplo: 


+ include <stdio.h> 
main ( ) 


1 
printf (“Este es mi primer programa en 
E 


Este texto que hemos tecleado, gracias 
al editor, se guardaría en un fichero y se 
compilariía dando como resultado un fi- 
chero que al ser invocado ejecutaría 
nuestro programa. 

En el sistema UNIX, el compilador de C 
se denomina ce, por lo que para compi- 
lar nuestro programa bastaría teclear: 


cc nombre de mi programa 


Terminada la compilación observaría- 
mos que se ha creado un nuevo fichero 
llamado a.out. Tecleando dicho nombre 
nuestro programa se ejecutaría apare- 
ciendo en pantalla el siguiente texto: 


Este es mi primer programa en C. ¡Era 
de esperar! 


Para ordenadores personales existe 
una versión de compilador de C llamada 
Laticce C. Los pasos que daremos para 
ejecutar nuestro programa serán los si- 
guientes: 


mc4 nombre de mi programa 
mc2 nombre de mi programa 
link e nombre de mi programa 


Este último paso originará un fichero lla- 
mado nombre de mi programa.exe y si a 
continuación tecleamos nombre de mi 


programa.exe conseguiremos ejecutar 
nuestro programa. 

La estructura en general de un programa 
C sería: 


GRUPO DE 
SENTENCIAS 


GRUPO DE 


O 
SENTENCIAS 


GRUPO DE 
SENTENCIAS 


7] 
u Elementos del lenguaje C 


El lenguaje C soporta los siguientes ti- 
pos de datos: 


— Caracteres. 

— Enteros. 

— Números en coma flotante. 
— Funciones. 

— Arrays y punteros. 

— Estructuras. 

— Uniones. 


Operadores tales como: 


— Aritméticos. 

— Relacionales. 
— lógicos. 

— Manejo de bits. 
— Asignación. 

— Condicional. 

— Acceso a datos. 


Estructuras de control tales como: An A 


> 


— Sentencias. i o 
— Sentencia «If-Then-Else». si A | 
— Sentencia «switch». Ñ Moa i 
— Saltos y etiquetas. Ñl paros 
Tipos de constantes tales como: ll el 
— Enteros: dígitos numéricos. [ 
— Números en coma flotante (carac- C posee una librería estándar. 
teres y constantes alftanuméricas). 
Funciones de entrada/salida, que for- — getchar. 
man parte de la librería estándar del C, — printf. 


y entre otras citaremos: — etc. 


INTRODUCCIÓN 


UANDO nos enfrenta- 
mos con un problema 
que debemos resol- 
ver mediante un or- 
denador de modo in- 
mediato, pensamos 
en un algoritmo que, 
traducido en un pro- 
grama, nos lleve a la solución. Pero esta 
forma de enfocar la resolución de pro- 
blemas mediante ordenador presenta 
dos inconvenientes graves para un usua- 
rio de tipo medio: 


— Por cada problema distinto a resol- 
ver deberíamos tener un programa que 
nos lo solucionara, con la consiguiente 
acumulación de programas de funciona- 
miento y manejo dispar. 

— Muchas veces la inexistencia de 
programas específicos para una serie de 
problemas determinados lleva consigo 
que el usuario deba crear por sí mismo o 
encargar a una empresa especializada 
un programa para resolverlo. 


Normalmente el usuario no es un exper- 
to en Informática, sino que, simplemente, 
debe utilizar un ordenador en su activi- 
dad diaria para resolver una serie de pro- 
blemas. 

Por ello, lo que en estos casos debe 
preocupar y ocupar su tiempo es en re- 
solver el problema, no en cómo decirle 
al ordenador cómo resolverlo. 

Para ello, desde hace algún tiempo es- 
tán apareciendo en el mercado una se- 
rie de programas de uso general, que lla- 
maremos aplicaciones, que permiten 


APLICACIONES 


concentrarse en la resolución del proble- 
ma sin necesidad de programar el orde- 
nador, ni de conocimientos específicos 
sobre Informática. 

Estas aplicaciones están diseñadas de 
tal forma que con ellas es posible abar- 
car todo el espectro de necesidades 
más usuales en la actividad diaria con un 
ordenador, eludiendo la mayoría de las 
veces el uso de programas específicos. 
De hecho un usuario no tiene por qué uti- 
lizar más que tres o cuatro programas de 
uso general. 


[A] Las aplicaciones permiten resolver más de un 
problema. 


' Tipos de aplicaciones 


Dentro del conjunto de aplicaciones 
disponibles en el mercado podemos ha- 
cer la siguiente división: 


'D Procesadores de texto 


Estos programas nos permiten crear y 
editar textos, como cartas, memorán- 
dums, etc. 

De hecho, transforman un ordenador 
en una máquina de escribir muy sofistica- 
da, con unas posibilidades impensables 
en cualquier otro tipo de máquina de es- 
cribir. Los procesadores de texto nos per- 
miten componer, poner márgenes, corre- 
gir de forma interactiva el texto y un 
montón más de posibilidades de edi- 
ción. 

Con un procesador de textos pueden 
crearse una serie de cartas personaliza- 
das con la ayuda de una base de datos, 
para así realizar una circular a unos clien- 
tes, por ejemplo. 

De entre los procesadores de texto, sin 
duda el más conocido es el WORDSTAR, 
del que hay innumerables versiones para 
casi todos los ordenadores. 
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MENU PRINCIPAL 

Movimiento de Cursor —Borrar— —Varios— —Otros Menús— 
“5 car. izda. “D car. dcha. “G car. “Tab. B Recomp. (sólo desde Pral) 
“A pal. izda. “F pal. dcha. DEL car iz “Y INSERTAR SI/NO “J Ayuda 
“E lin. arr. “X lín. abajo “T pal dch | “LBus./sust. otra “Q Rápido 

— Deslizar: — “Y línea RETORNO fin párrafo “0 Pantalla 

“Z línea abajo “W línea arr “N Insertar RETORNO “K Bloques 
“C pant. arr “R pant. abajo “U Cancelar comando “P Impresión 


Otros procesadores de texto muy co- 
nocidos son: 


LOCOSCRIPT. 
MICROSOFT WORD. 
WRITING ASSISTANT. 
PERSONAL EDITOR. 
EASY WRITER. 
WORD PERFECT. 


'Q Hojas de cálculo 


Las llamadas “hojas de cálculo” son 
unas aplicaciones que permiten realizar 
de forma sencilla cualquier tipo de cálcu- 
lo en el cual intervengan tablas de nú- 
meros y relaciones numéricas entre ellos. 
Su propiedad fundamental es la de la 
“actualización automática”, que consis- 
te en que si cambiamos el valor de un nú- 
mero todos los valores y fórmulas relacio- 
nados con él se actualizarán, de forma 
automática, permitiendo con ello cana- 
lizar situaciones y proyectos, modelos de 
acumulación de situaciones reales. 

Su uso más frecuente consiste en cálcu- 
los financieros y estimación de ten- 
dencias, pero con las hojas de cálculo 
actuales podemos resolver casi cual- 
quier problema de cálculo, llegando a 


INSERTAR SI 


PROGRAMA DE APLICACIONES 


Introducción a los programas de aplicación. 
Tipos y usos de los principales programas. 
Tratamiento de textos: WordStar. 

Hojas de cálculo: Multiplán, Lotus 1-2-3. 
Bases de datos: dBase ll, dBase lll. 


Paquetes integrados: Open Access, Symphony, Framework. 


Ejemplo de procesador de textos: WordStar. 
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“e APLICACIONES 


convertirse en verdaderos “lenguajes” 
de programación. 

La idea básica de una hoja de cálculo 
es la siguiente: 


lA Concepto de hoja de cálculo. 


Tenemos una matriz bidimensional en 
la cual cada intersección de fila y colum- 
na es lo que se llama una “celda”, en la 
cual puede almacenarse un valor nume- 
rico o una fórmula que esté relacionada 
con otras celdas. De este modo pode- 
mos llegar a establecer una serie de re- 
laciones entre las celdas que nos permi- 
ten realizar los cálculos que precisemos. 

En el mercado hay muchas hojas de 
cálculo, de entre las cuales las más ex- 
tendidas son: 


2 3 


ENERO FEBRERO 


ITEM%1 
ITEM+2 
ITEM43 
ITEM+4 
ITEM45 


00 YO OA — 


ITEM+6 
ITEM47 
ITEM48 
ITEM+9 
ITEM 10 
ITEM411 
ITEM412 


50891 84386 


TOTAL 


— VISICALC. 

— MULTIPLAN. 

— LOTUS 1-2-3. 

— SUPERCALC. 
7 TK SOLVER! (para aplicaciones cien- 
tificas). 


| 
ul Bases de Datos 


Una de las utilizaciones más comunes 
de un ordenador es la de almacena- 
miento y recuperación de grandes can- 
tidades de datos, ordenados y estructu- 
rados de alguna manera determinada. 

Para este tipo de aplicaciones existen 
en el mercado las llamadas “bases de 
datos”, que son programas para gestio- 
nar graves soluciones de información de 
tal forma que podamos almacenarlos y 
recuperarlos de una forma coherente, 
práctica y eficaz. 

Normalmente, los datos están almace- 
nados en algún tipo de dispositivo físico, 
siendo el más común el disco flexible, 
aunque es recomendable el uso de dis- 
cos duros de tecnología Winchester por 
su mayor velocidad de acceso. 

Las bases de datos nos permiten guar- 
dar y recuperar los datos de una forma 
determinada por medio de sistemas es- 
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VENTA DE ELEMENTOS VARIOS EN LOS PRIMEROS Ó MESES 


MARZO 


ABRIL MAYO JUNIO 
2342 14 
23 386 
234 368 
234 0 
234 52 
234 246 
234 211715 
234 28 
234356 353345 789 
234 66 123 
234 55 456 
234 5 4645 


3604 240653 357240 218830 


MANDATO: Alfa Blan Clasif Direc Edit Format Genera HoAyu Imprimir Limit 
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Seleccionar opción o pulsar inicial de mandato 


R1C2 “VENTA DE ELEMENTOS VARIOS E 97% Libre NL Multiplan: TEMP 


[A Ejemplo de hoja de cálculo. Multiplán. 


APELLIDO DIRECCION CIUDAD PROVINCIA cP TELEFONO 
Nieva Ercilla, 10 Bilbao Vizcaya 48025 (94) 447 09 87 
Lemos Ayala, 96 Maarid Maarid 28001 (91) 250 50 13 
Barroso Lucena, 32 Ronda Málaga 29033 (952) 32 45 91 
Ruano Somera, 88 Rivadavia Orense 32017 (988) 47 62 90 
Romero Tutor, 41 Linares Jaén 23010 (953) 13 42 58 
Gutiérrez Princesa, 27. Cuenca Cuenca 16016 (966) 57 83 49 
Gómez Gran Vía, 8l Cuéllar Segovia 40020 (911) 84 65 92 
Cueto Estrella, 1 Lérida Lérida 25041 (973) 38 97 62 
Cuevas Diagonal, 92 Mataró Barcelona 08005 (93) 256 47 86 
Torrijos, 5 Toledo Toledo 45009 (925) 34 78 91 


Lucena 


lA Ejemplo de base de datos = dBase Ill. 


peciales de ordenación de ficheros, y re- 
cuperar toda o una parte de la informa- 
ción de una forma muy sencilla. 

Sin duda, la base de datos más cono- 
cida es la dBASE lll, estando su uso muy 
extendido para aplicaciones de tamaño 
medio. Para aplicaciones con poco vo- 
lumen de datos existen otros programas 
como el PFS:FILE o el FILLING ASSISTANT, 
que permiten manejar los datos de una 
forma muy sencilla. 


2 Paquetes integrados 


Cuando necesitamos realizar distintas 


der intercambiar los datos entre una apli- 
cación y otra con el problema de que 
muchas veces el formato de los datos de 
las aplicaciones que manejamos no son 
compatibles entre sí. Por ello se han dise- 
ñado los llamados paquetes integrados, 
que no son más que una reunión de to- 
dos los programas que hemos visto en 
una sola aplicación. Esto es, un paquete 
que reúne en una sola aplicación un pro- 
cesador de texto, una hoja de cálculo, 
una base de datos, etc. 

Estos paquetes integrados permiten re- 
solver cualquier tipo de problema sin ne- 
cesidad de recurrir a otros programas. 

De entre los paquetes integrados más 
conocidos podemos citar: 


operaciones sobre un mismo conjunto de — SYMPHONY. 
datos, como cálculos, actualizaciones — OPEN ACCESS. 
de una base de datos, necesitamos po- — FRAMEWORK. 
Disco Crear Edit Local Ventana Texto Números Gráfico Imprimir 0:11:19 
(HOJA DE CALCULO) 
A B en despacho, gafas de sol y un 
1 . Saldo ayudarle a conseguir las dos 
2 Depósito anual 2.000 Ptas. ndrá de un magnífico despac A:> 
3 Tasa de interés 11,00% work). <B:> 
4 Numero de depósitos 20 <> 
5 este rectángulo para que > 
6 Tasa de impuestos 30,00%  ravés suyo: => 
7 
8 Valor futuro sin impuestos 128.406 Pt. 
9 Valor futuro con impuestos 61.977 Pt. 
10 
11 Sin imp. menos imp. 66.429 Pt. e"a” ahora. 
(DataBase) 
AGENTE DIVISION SECTOR SITUACION APODO ESPECIA 
al7 Parcelas 52 Berlín Spike Gestión (DataBase) 
(HOJA DE) 
(PROCESO) 
HOJA DE CALCULO | Doc: 2/3 MAY 


lA | 
Ejemplo de paquete integrado. Framework. 
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